home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / lisp / kcl_tar.z / kcl_tar / cmpnew / cmplam.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-04  |  59.7 KB  |  2,717 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmplam.h"
  5. init_cmplam(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     MM(VV[49],L1,start,size,data);
  9.     MM(VV[50],L2,start,size,data);
  10.     MF(VV[51],L3,start,size,data);
  11.     MF(VV[52],L4,start,size,data);
  12.     MF(VV[53],L5,start,size,data);
  13.     MF(VV[54],L6,start,size,data);
  14.     MF(VV[55],L8,start,size,data);
  15.     MF(VV[56],L10,start,size,data);
  16.     VV[32]->s.s_stype=(short)stp_special;
  17.     VV[33]->s.s_stype=(short)stp_special;
  18.     VV[34]->s.s_stype=(short)stp_special;
  19.     MF(VV[57],L11,start,size,data);
  20.     MF(VV[58],L12,start,size,data);
  21.     MF(VV[59],L13,start,size,data);
  22.     MF(VV[60],L14,start,size,data);
  23.     MF(VV[61],L15,start,size,data);
  24.     MF(VV[62],L16,start,size,data);
  25.     MF(VV[63],L17,start,size,data);
  26.     MF(VV[64],L18,start,size,data);
  27.     MF(VV[65],L19,start,size,data);
  28.     MF(VV[66],L20,start,size,data);
  29.     vs_top=vs_base=base;
  30. }
  31. /*    macro definition for CK-SPEC    */
  32.  
  33. static L1()
  34. {    register object *base=vs_base;
  35.     register object *sup=base+VM3;
  36.     vs_reserve(VM3);
  37.     check_arg(2);
  38.     vs_top=sup;
  39.     {object V1=base[0]->c.c_cdr;
  40.     if(endp(V1))invalid_macro_call();
  41.     base[2]= (V1->c.c_car);
  42.     V1=V1->c.c_cdr;
  43.     if(!endp(V1))invalid_macro_call();}
  44.     base[3]= list(3,VV[0],base[2],VV[1]);
  45.     vs_top=(vs_base=base+3)+1;
  46.     return;
  47. }
  48. /*    macro definition for CK-VL    */
  49.  
  50. static L2()
  51. {    register object *base=vs_base;
  52.     register object *sup=base+VM4;
  53.     vs_reserve(VM4);
  54.     check_arg(2);
  55.     vs_top=sup;
  56.     {object V2=base[0]->c.c_cdr;
  57.     if(endp(V2))invalid_macro_call();
  58.     base[2]= (V2->c.c_car);
  59.     V2=V2->c.c_cdr;
  60.     if(!endp(V2))invalid_macro_call();}
  61.     base[3]= list(3,VV[0],base[2],VV[2]);
  62.     vs_top=(vs_base=base+3)+1;
  63.     return;
  64. }
  65. /*    function definition for C1LAMBDA-EXPR    */
  66.  
  67. static L3()
  68. {    register object *base=vs_base;
  69.     register object *sup=base+VM5;
  70.     vs_reserve(VM5);
  71.     bds_check;
  72.     if(vs_top-vs_base<1) too_few_arguments();
  73.     if(vs_top-vs_base>2) too_many_arguments();
  74.     vs_base=vs_base+1;
  75.     if(vs_base>=vs_top){vs_top=sup;goto T1;}
  76.     base[2]= Ct;
  77.     vs_top=sup;
  78.     goto T2;
  79. T1:;
  80.     base[1]= Cnil;
  81.     base[2]= Cnil;
  82. T2:;
  83.     base[3]= Cnil;
  84.     base[4]= Cnil;
  85.     base[5]= Cnil;
  86.     base[6]= Cnil;
  87.     base[7]= Cnil;
  88.     base[8]= Cnil;
  89.     base[9]= Cnil;
  90.     base[10]= Cnil;
  91.     base[11]= Cnil;
  92.     base[12]= Cnil;
  93.     base[13]= Cnil;
  94.     base[14]= Cnil;
  95.     base[15]= Cnil;
  96.     base[16]= Cnil;
  97.     base[17]= Cnil;
  98.     base[18]= Cnil;
  99.     base[19]= Cnil;
  100.     bds_bind(VV[3],symbol_value(VV[3]));
  101.     base[21]= simple_symlispcall_no_event(VV[67],base+22,0);
  102.     base[22]= Cnil;
  103.     if(!(endp(base[0]))){
  104.     goto T5;}
  105.     base[23]= VV[4];
  106.     base[24]= make_cons(VV[5],base[0]);
  107.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  108. T5:;
  109.     base[23]= cdr(base[0]);
  110.     base[24]= Ct;
  111.     symlispcall_no_event(VV[69],base+23,2);
  112.     if(vs_base<vs_top){
  113.     base[14]= vs_base[0];
  114.     vs_base++;
  115.     }else{
  116.     base[14]= Cnil;}
  117.     if(vs_base<vs_top){
  118.     base[15]= vs_base[0];
  119.     vs_base++;
  120.     }else{
  121.     base[15]= Cnil;}
  122.     if(vs_base<vs_top){
  123.     base[17]= vs_base[0];
  124.     vs_base++;
  125.     }else{
  126.     base[17]= Cnil;}
  127.     if(vs_base<vs_top){
  128.     base[16]= vs_base[0];
  129.     vs_base++;
  130.     }else{
  131.     base[16]= Cnil;}
  132.     if(vs_base<vs_top){
  133.     base[18]= vs_base[0];
  134.     vs_base++;
  135.     }else{
  136.     base[18]= Cnil;}
  137.     if(vs_base<vs_top){
  138.     base[11]= vs_base[0];
  139.     }else{
  140.     base[11]= Cnil;}
  141.     vs_top=sup;
  142.     if((base[2])==Cnil){
  143.     goto T14;}
  144.     base[23]= make_cons(base[1],base[14]);
  145.     base[24]= make_cons(VV[6],base[23]);
  146.     base[14]= make_cons(base[24],Cnil);
  147. T14:;
  148.     base[23]= base[15];
  149.     (void)simple_symlispcall_no_event(VV[70],base+23,1);
  150.     base[12]= car(base[0]);
  151. T24:;
  152.     if((base[12])!=Cnil){
  153.     goto T30;}
  154.     goto T22;
  155. T30:;
  156.     if(type_of(base[12])==t_cons){
  157.     goto T33;}
  158.     base[23]= VV[7];
  159.     base[24]= base[12];
  160.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  161. T33:;
  162.     base[24]= car(base[12]);
  163.     base[12]= cdr(base[12]);
  164.     base[13]= base[24];
  165.     base[23]= base[13];
  166.     {object V3= base[23];
  167.     if((V3!= VV[39]))goto T44;
  168.     goto T25;
  169. T44:;
  170.     if((V3!= VV[38]))goto T45;
  171.     goto T26;
  172. T45:;
  173.     if((V3!= VV[41]))goto T46;
  174.     goto T27;
  175. T46:;
  176.     if((V3!= VV[43]))goto T47;
  177.     goto T28;
  178. T47:;}
  179.     base[24]= base[13];
  180.     base[25]= base[15];
  181.     base[26]= base[16];
  182.     base[27]= base[17];
  183.     base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
  184.     base[19]= make_cons(base[13],base[19]);
  185.     (VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
  186.     base[3]= make_cons(base[23],base[3]);
  187.     goto T24;
  188. T25:;
  189.     if((base[12])!=Cnil){
  190.     goto T59;}
  191.     goto T22;
  192. T59:;
  193.     if(type_of(base[12])==t_cons){
  194.     goto T62;}
  195.     base[23]= VV[7];
  196.     base[24]= base[12];
  197.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  198. T62:;
  199.     base[24]= car(base[12]);
  200.     base[12]= cdr(base[12]);
  201.     base[13]= base[24];
  202.     base[23]= base[13];
  203.     {object V4= base[23];
  204.     if((V4!= VV[38]))goto T73;
  205.     goto T26;
  206. T73:;
  207.     if((V4!= VV[41]))goto T74;
  208.     goto T27;
  209. T74:;
  210.     if((V4!= VV[43]))goto T75;
  211.     goto T28;
  212. T75:;}
  213.     if(type_of(base[13])==t_cons){
  214.     goto T78;}
  215.     base[24]= base[13];
  216.     base[25]= base[15];
  217.     base[26]= base[16];
  218.     base[27]= base[17];
  219.     base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
  220.     base[19]= make_cons(base[13],base[19]);
  221.     base[25]= structure_ref(base[23],VV[8],5);
  222.     base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
  223.     base[25]= list(3,base[23],base[24],Cnil);
  224.     base[4]= make_cons(base[25],base[4]);
  225.     (VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
  226.     goto T76;
  227. T78:;
  228.     if(type_of(cdr(base[13]))==t_cons){
  229.     goto T93;}
  230.     if((cdr(base[13]))==Cnil){
  231.     goto T95;}
  232.     base[23]= VV[9];
  233.     base[24]= base[13];
  234.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  235. T95:;
  236.     base[24]= car(base[13]);
  237.     base[25]= base[15];
  238.     base[26]= base[16];
  239.     base[27]= base[17];
  240.     base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
  241.     base[19]= make_cons(car(base[13]),base[19]);
  242.     base[25]= structure_ref(base[23],VV[8],5);
  243.     base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
  244.     base[25]= list(3,base[23],base[24],Cnil);
  245.     base[4]= make_cons(base[25],base[4]);
  246.     (VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
  247.     goto T76;
  248. T93:;
  249.     if(type_of(cddr(base[13]))==t_cons){
  250.     goto T113;}
  251.     if((cddr(base[13]))==Cnil){
  252.     goto T115;}
  253.     base[23]= VV[9];
  254.     base[24]= base[13];
  255.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  256. T115:;
  257.     base[25]= cadr(base[13]);
  258.     base[26]= base[21];
  259.     base[23]= simple_symlispcall_no_event(VV[73],base+25,2);
  260.     base[25]= car(base[13]);
  261.     base[26]= base[15];
  262.     base[27]= base[16];
  263.     base[28]= base[17];
  264.     base[24]= simple_symlispcall_no_event(VV[71],base+25,4);
  265.     base[19]= make_cons(car(base[13]),base[19]);
  266.     base[26]= structure_ref(base[24],VV[8],5);
  267.     base[27]= base[23];
  268.     base[28]= cadr(base[13]);
  269.     base[25]= simple_symlispcall_no_event(VV[74],base+26,3);
  270.     base[26]= list(3,base[24],base[25],Cnil);
  271.     base[4]= make_cons(base[26],base[4]);
  272.     (VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
  273.     goto T76;
  274. T113:;
  275.     if((cdddr(base[13]))==Cnil){
  276.     goto T137;}
  277.     base[23]= VV[9];
  278.     base[24]= base[13];
  279.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  280. T137:;
  281.     base[26]= cadr(base[13]);
  282.     base[27]= base[21];
  283.     base[23]= simple_symlispcall_no_event(VV[73],base+26,2);
  284.     base[26]= car(base[13]);
  285.     base[27]= base[15];
  286.     base[28]= base[16];
  287.     base[29]= base[17];
  288.     base[24]= simple_symlispcall_no_event(VV[71],base+26,4);
  289.     base[26]= caddr(base[13]);
  290.     base[27]= base[15];
  291.     base[28]= base[16];
  292.     base[29]= base[17];
  293.     base[25]= simple_symlispcall_no_event(VV[71],base+26,4);
  294.     base[19]= make_cons(car(base[13]),base[19]);
  295.     base[19]= make_cons(caddr(base[13]),base[19]);
  296.     base[27]= structure_ref(base[24],VV[8],5);
  297.     base[28]= base[23];
  298.     base[29]= cadr(base[13]);
  299.     base[26]= simple_symlispcall_no_event(VV[74],base+27,3);
  300.     base[27]= list(3,base[24],base[26],base[25]);
  301.     base[4]= make_cons(base[27],base[4]);
  302.     (VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
  303.     (VV[3]->s.s_dbind)= make_cons(base[25],(VV[3]->s.s_dbind));
  304. T76:;
  305.     goto T25;
  306. T26:;
  307.     if(type_of(base[12])==t_cons){
  308.     goto T168;}
  309.     base[23]= VV[7];
  310.     base[24]= base[12];
  311.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  312. T168:;
  313.     base[19]= make_cons(car(base[12]),base[19]);
  314.     base[23]=symbol_function(VV[71]);
  315.     base[25]= car(base[12]);
  316.     base[12]= cdr(base[12]);
  317.     base[24]= base[25];
  318.     base[25]= base[15];
  319.     base[26]= base[16];
  320.     base[27]= base[17];
  321.     base[5]= simple_lispcall_no_event(base+23,4);
  322.     (VV[3]->s.s_dbind)= make_cons(base[5],(VV[3]->s.s_dbind));
  323.     if((base[12])!=Cnil){
  324.     goto T186;}
  325.     goto T22;
  326. T186:;
  327.     if(type_of(base[12])==t_cons){
  328.     goto T189;}
  329.     base[23]= VV[7];
  330.     base[24]= base[12];
  331.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  332. T189:;
  333.     base[24]= car(base[12]);
  334.     base[12]= cdr(base[12]);
  335.     base[13]= base[24];
  336.     base[23]= base[13];
  337.     {object V5= base[23];
  338.     if((V5!= VV[41]))goto T200;
  339.     goto T27;
  340. T200:;
  341.     if((V5!= VV[43]))goto T201;
  342.     goto T28;
  343. T201:;}
  344.     base[23]= VV[10];
  345.     base[24]= base[13];
  346.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  347. T27:;
  348.     base[7]= Ct;
  349.     if((base[12])!=Cnil){
  350.     goto T206;}
  351.     goto T22;
  352. T206:;
  353.     if(type_of(base[12])==t_cons){
  354.     goto T209;}
  355.     base[23]= VV[7];
  356.     base[24]= base[12];
  357.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  358. T209:;
  359.     base[24]= car(base[12]);
  360.     base[12]= cdr(base[12]);
  361.     base[13]= base[24];
  362.     base[23]= base[13];
  363.     {object V6= base[23];
  364.     if((V6!= VV[43]))goto T220;
  365.     goto T28;
  366. T220:;
  367.     if((V6!= VV[42]))goto T221;
  368.     base[8]= Ct;
  369.     if((base[12])!=Cnil){
  370.     goto T224;}
  371.     goto T22;
  372. T224:;
  373.     if(type_of(base[12])==t_cons){
  374.     goto T227;}
  375.     base[24]= VV[7];
  376.     base[25]= base[12];
  377.     (void)simple_symlispcall_no_event(VV[68],base+24,2);
  378. T227:;
  379.     base[25]= car(base[12]);
  380.     base[12]= cdr(base[12]);
  381.     base[13]= base[25];
  382.     base[24]= base[13];
  383.     {object V7= base[24];
  384.     if((V7!= VV[43]))goto T238;
  385.     goto T28;
  386. T238:;}
  387.     base[24]= VV[11];
  388.     base[25]= base[13];
  389.     (void)simple_symlispcall_no_event(VV[68],base+24,2);
  390.     goto T214;
  391. T221:;}
  392. T214:;
  393.     if(type_of(base[13])==t_cons){
  394.     goto T241;}
  395.     base[13]= make_cons(base[13],Cnil);
  396. T241:;
  397.     if(!(type_of(car(base[13]))==t_cons)){
  398.     goto T247;}
  399.     if(!((type_of(caar(base[13]))==t_symbol&&(caar(base[13]))->s.s_hpack==keyword_package))){
  400.     goto T250;}
  401.     if(!(type_of(cdar(base[13]))==t_cons)){
  402.     goto T250;}
  403.     if((cddar(base[13]))==Cnil){
  404.     goto T249;}
  405. T250:;
  406.     base[23]= VV[9];
  407.     base[24]= base[13];
  408.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  409. T249:;
  410.     {object V8= caar(base[13]);
  411.     base[23]= make_cons(cadar(base[13]),cdr(base[13]));
  412.     base[13]= make_cons(V8,base[23]);}
  413.     goto T245;
  414. T247:;
  415.     if(type_of(car(base[13]))==t_symbol){
  416.     goto T259;}
  417.     base[23]= VV[9];
  418.     base[24]= base[13];
  419.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  420. T259:;
  421.     base[24]= coerce_to_string(car(base[13]));
  422.     base[25]= VV[12];
  423.     vs_top=(vs_base=base+24)+2;
  424.     Lintern();
  425.     vs_top=sup;
  426.     base[23]= vs_base[0];
  427.     base[24]= make_cons(car(base[13]),cdr(base[13]));
  428.     base[13]= make_cons(base[23],base[24]);
  429. T245:;
  430.     if(type_of(cddr(base[13]))==t_cons){
  431.     goto T270;}
  432.     if((cddr(base[13]))==Cnil){
  433.     goto T272;}
  434.     base[23]= VV[9];
  435.     base[24]= base[13];
  436.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  437. T272:;
  438.     base[24]= cadr(base[13]);
  439.     base[25]= base[15];
  440.     base[26]= base[16];
  441.     base[27]= base[17];
  442.     base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
  443.     base[19]= make_cons(cadr(base[13]),base[19]);
  444.     {object V9= car(base[13]);
  445.     base[25]= structure_ref(base[23],VV[8],5);
  446.     base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
  447.     base[26]= VV[13];
  448.     base[27]= VV[14];
  449.     base[25]= simple_symlispcall_no_event(VV[75],base+26,2);
  450.     base[26]= list(4,V9,base[23],base[24],base[25]);
  451.     base[6]= make_cons(base[26],base[6]);}
  452.     (VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
  453.     goto T268;
  454. T270:;
  455.     if(type_of(cdddr(base[13]))==t_cons){
  456.     goto T293;}
  457.     if((cdddr(base[13]))==Cnil){
  458.     goto T295;}
  459.     base[23]= VV[9];
  460.     base[24]= base[13];
  461.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  462. T295:;
  463.     base[25]= caddr(base[13]);
  464.     base[26]= base[21];
  465.     base[23]= simple_symlispcall_no_event(VV[73],base+25,2);
  466.     base[25]= cadr(base[13]);
  467.     base[26]= base[15];
  468.     base[27]= base[16];
  469.     base[28]= base[17];
  470.     base[24]= simple_symlispcall_no_event(VV[71],base+25,4);
  471.     base[19]= make_cons(cadr(base[13]),base[19]);
  472.     {object V10= car(base[13]);
  473.     base[26]= structure_ref(base[24],VV[8],5);
  474.     base[27]= base[23];
  475.     base[28]= caddr(base[13]);
  476.     base[25]= simple_symlispcall_no_event(VV[74],base+26,3);
  477.     base[27]= VV[13];
  478.     base[28]= VV[14];
  479.     base[26]= simple_symlispcall_no_event(VV[75],base+27,2);
  480.     base[27]= list(4,V10,base[24],base[25],base[26]);
  481.     base[6]= make_cons(base[27],base[6]);}
  482.     (VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
  483.     goto T268;
  484. T293:;
  485.     if((cddddr(base[13]))==Cnil){
  486.     goto T320;}
  487.     base[23]= VV[9];
  488.     base[24]= base[13];
  489.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  490. T320:;
  491.     base[26]= caddr(base[13]);
  492.     base[27]= base[21];
  493.     base[23]= simple_symlispcall_no_event(VV[73],base+26,2);
  494.     base[26]= cadr(base[13]);
  495.     base[27]= base[15];
  496.     base[28]= base[16];
  497.     base[29]= base[17];
  498.     base[24]= simple_symlispcall_no_event(VV[71],base+26,4);
  499.     base[26]= cadddr(base[13]);
  500.     base[27]= base[15];
  501.     base[28]= base[16];
  502.     base[29]= base[17];
  503.     base[25]= simple_symlispcall_no_event(VV[71],base+26,4);
  504.     base[19]= make_cons(cadr(base[13]),base[19]);
  505.     base[19]= make_cons(cadddr(base[13]),base[19]);
  506.     {object V11= car(base[13]);
  507.     base[27]= structure_ref(base[24],VV[8],5);
  508.     base[28]= base[23];
  509.     base[29]= caddr(base[13]);
  510.     base[26]= simple_symlispcall_no_event(VV[74],base+27,3);
  511.     base[27]= list(4,V11,base[24],base[26],base[25]);
  512.     base[6]= make_cons(base[27],base[6]);}
  513.     (VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
  514.     (VV[3]->s.s_dbind)= make_cons(base[25],(VV[3]->s.s_dbind));
  515. T268:;
  516.     goto T27;
  517. T28:;
  518.     base[22]= simple_symlispcall_no_event(VV[67],base+23,0);
  519. T29:;
  520.     if((base[12])!=Cnil){
  521.     goto T352;}
  522.     base[23]= base[21];
  523.     base[24]= base[22];
  524.     (void)simple_symlispcall_no_event(VV[76],base+23,2);
  525.     goto T22;
  526. T352:;
  527.     if(type_of(base[12])==t_cons){
  528.     goto T358;}
  529.     base[23]= VV[7];
  530.     base[24]= base[12];
  531.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  532. T358:;
  533.     base[23]= car(base[12]);
  534.     base[12]= cdr(base[12]);
  535.     base[13]= base[23];
  536.     if(!(type_of(base[13])==t_cons)){
  537.     goto T370;}
  538.     if(type_of(cdr(base[13]))==t_cons){
  539.     goto T373;}
  540.     if((cdr(base[13]))==Cnil){
  541.     goto T375;}
  542.     base[23]= VV[9];
  543.     base[24]= base[13];
  544.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  545. T375:;
  546.     base[24]= car(base[13]);
  547.     base[25]= base[15];
  548.     base[26]= base[16];
  549.     base[27]= base[17];
  550.     base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
  551.     base[19]= make_cons(car(base[13]),base[19]);
  552.     base[25]= structure_ref(base[23],VV[8],5);
  553.     base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
  554.     base[10]= make_cons(base[24],base[10]);
  555.     base[9]= make_cons(base[23],base[9]);
  556.     (VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
  557.     goto T368;
  558. T373:;
  559.     if((cddr(base[13]))==Cnil){
  560.     goto T394;}
  561.     base[23]= VV[9];
  562.     base[24]= base[13];
  563.     (void)simple_symlispcall_no_event(VV[68],base+23,2);
  564. T394:;
  565.     base[25]= cadr(base[13]);
  566.     base[26]= base[22];
  567.     base[23]= simple_symlispcall_no_event(VV[73],base+25,2);
  568.     base[25]= car(base[13]);
  569.     base[26]= base[15];
  570.     base[27]= base[16];
  571.     base[28]= base[17];
  572.     base[24]= simple_symlispcall_no_event(VV[71],base+25,4);
  573.     base[19]= make_cons(car(base[13]),base[19]);
  574.     base[26]= structure_ref(base[24],VV[8],5);
  575.     base[27]= base[23];
  576.     base[28]= cadr(base[13]);
  577.     base[25]= simple_symlispcall_no_event(VV[74],base+26,3);
  578.     base[10]= make_cons(base[25],base[10]);
  579.     base[9]= make_cons(base[24],base[9]);
  580.     (VV[3]->s.s_dbind)= make_cons(base[24],(VV[3]->s.s_dbind));
  581.     goto T368;
  582. T370:;
  583.     base[24]= base[13];
  584.     base[25]= base[15];
  585.     base[26]= base[16];
  586.     base[27]= base[17];
  587.     base[23]= simple_symlispcall_no_event(VV[71],base+24,4);
  588.     base[19]= make_cons(base[13],base[19]);
  589.     base[25]= structure_ref(base[23],VV[8],5);
  590.     base[24]= simple_symlispcall_no_event(VV[72],base+25,1);
  591.     base[10]= make_cons(base[24],base[10]);
  592.     base[9]= make_cons(base[23],base[9]);
  593.     (VV[3]->s.s_dbind)= make_cons(base[23],(VV[3]->s.s_dbind));
  594. T368:;
  595.     goto T29;
  596. T22:;
  597.     base[3]= reverse(base[3]);
  598.     base[4]= reverse(base[4]);
  599.     base[6]= reverse(base[6]);
  600.     base[9]= reverse(base[9]);
  601.     base[10]= reverse(base[10]);
  602.     base[23]= base[19];
  603.     base[24]= base[17];
  604.     base[25]= base[16];
  605.     (void)simple_symlispcall_no_event(VV[77],base+23,3);
  606.     base[23]= base[18];
  607.     base[24]= base[14];
  608.     base[14]= simple_symlispcall_no_event(VV[78],base+23,2);
  609.     base[23]= base[21];
  610.     base[24]= cadr(base[14]);
  611.     (void)simple_symlispcall_no_event(VV[76],base+23,2);
  612.     {object V12;
  613.     object V13;
  614.     V12= base[3];
  615.     V13= car((V12));
  616. T458:;
  617.     if(!(endp((V12)))){
  618.     goto T459;}
  619.     goto T454;
  620. T459:;
  621.     base[23]= (V13);
  622.     (void)simple_symlispcall_no_event(VV[79],base+23,1);
  623.     V12= cdr((V12));
  624.     V13= car((V12));
  625.     goto T458;}
  626. T454:;
  627.     {object V14;
  628.     object V15;
  629.     V14= base[4];
  630.     V15= car((V14));
  631. T474:;
  632.     if(!(endp((V14)))){
  633.     goto T475;}
  634.     goto T470;
  635. T475:;
  636.     base[23]= car((V15));
  637.     (void)simple_symlispcall_no_event(VV[79],base+23,1);
  638.     if((caddr((V15)))==Cnil){
  639.     goto T481;}
  640.     base[23]= caddr((V15));
  641.     (void)simple_symlispcall_no_event(VV[79],base+23,1);
  642. T481:;
  643.     V14= cdr((V14));
  644.     V15= car((V14));
  645.     goto T474;}
  646. T470:;
  647.     if((base[5])==Cnil){
  648.     goto T490;}
  649.     base[23]= base[5];
  650.     (void)simple_symlispcall_no_event(VV[79],base+23,1);
  651. T490:;
  652.     {object V16;
  653.     object V17;
  654.     V16= base[6];
  655.     V17= car((V16));
  656. T498:;
  657.     if(!(endp((V16)))){
  658.     goto T499;}
  659.     goto T494;
  660. T499:;
  661.     base[23]= cadr((V17));
  662.     (void)simple_symlispcall_no_event(VV[79],base+23,1);
  663.     if((cadddr((V17)))==Cnil){
  664.     goto T505;}
  665.     base[23]= cadddr((V17));
  666.     (void)simple_symlispcall_no_event(VV[79],base+23,1);
  667. T505:;
  668.     V16= cdr((V16));
  669.     V17= car((V16));
  670.     goto T498;}
  671. T494:;
  672.     {object V18;
  673.     object V19;
  674.     V18= base[9];
  675.     V19= car((V18));
  676. T518:;
  677.     if(!(endp((V18)))){
  678.     goto T519;}
  679.     goto T514;
  680. T519:;
  681.     base[23]= (V19);
  682.     (void)simple_symlispcall_no_event(VV[79],base+23,1);
  683.     V18= cdr((V18));
  684.     V19= car((V18));
  685.     goto T518;}
  686. T514:;
  687.     if((base[9])==Cnil){
  688.     goto T530;}
  689.     base[23]= base[22];
  690.     base[24]= cadr(base[14]);
  691.     (void)simple_symlispcall_no_event(VV[76],base+23,2);
  692.     base[14]= list(5,VV[15],base[22],base[9],base[10],base[14]);
  693. T530:;
  694.     base[23]= list(6,base[3],base[4],base[5],base[7],base[6],base[8]);
  695.     base[24]= list(5,VV[5],base[21],base[23],base[11],base[14]);
  696.     vs_top=(vs_base=base+24)+1;
  697.     bds_unwind1;
  698.     return;
  699. }
  700. /*    function definition for THE-PARAMETER    */
  701.  
  702. static L4()
  703. {    register object *base=vs_base;
  704.     register object *sup=base+VM6;
  705.     vs_reserve(VM6);
  706.     check_arg(1);
  707.     vs_top=sup;
  708. TTL:;
  709.     if(type_of(base[0])==t_symbol){
  710.     goto T537;}
  711.     base[1]= VV[16];
  712.     base[2]= base[0];
  713.     (void)simple_symlispcall_no_event(VV[68],base+1,2);
  714. T537:;
  715.     base[1]= base[0];
  716.     vs_top=(vs_base=base+1)+1;
  717.     Lconstantp();
  718.     vs_top=sup;
  719.     if((vs_base[0])==Cnil){
  720.     goto T542;}
  721.     base[1]= VV[17];
  722.     base[2]= base[0];
  723.     (void)simple_symlispcall_no_event(VV[68],base+1,2);
  724. T542:;
  725.     vs_top=(vs_base=base+0)+1;
  726.     return;
  727. }
  728. /*    function definition for C2LAMBDA-EXPR    */
  729.  
  730. static L5()
  731. {    register object *base=vs_base;
  732.     register object *sup=base+VM7;
  733.     vs_reserve(VM7);
  734.     bds_check;
  735.     if(vs_top-vs_base<2) too_few_arguments();
  736.     if(vs_top-vs_base>3) too_many_arguments();
  737.     vs_base=vs_base+2;
  738.     if(vs_base>=vs_top){vs_top=sup;goto T548;}
  739.     base[3]= Ct;
  740.     vs_top=sup;
  741.     goto T549;
  742. T548:;
  743.     base[2]= Cnil;
  744.     base[3]= Cnil;
  745. T549:;
  746.     if((symbol_value(VV[19]))==Cnil){
  747.     goto T553;}
  748.     if((base[3])==Cnil){
  749.     goto T553;}
  750.     {object V20;
  751.     base[5]= car(base[0]);
  752.     V20= car(base[5]);
  753. T563:;
  754.     if(!(endp(base[5]))){
  755.     goto T564;}
  756.     goto T559;
  757. T564:;
  758.     if((structure_ref((V20),VV[8],3))==Cnil){
  759.     goto T568;}
  760.     goto T553;
  761. T568:;
  762.     base[5]= cdr(base[5]);
  763.     V20= car(base[5]);
  764.     goto T563;}
  765. T559:;
  766.     if((cadr(base[0]))!=Cnil){
  767.     goto T553;}
  768.     if((caddr(base[0]))!=Cnil){
  769.     goto T553;}
  770.     if((cadddr(base[0]))!=Cnil){
  771.     goto T553;}
  772.     base[4]= make_cons(base[2],car(base[0]));
  773.     goto T551;
  774. T553:;
  775.     base[4]= Cnil;
  776. T551:;
  777.     bds_bind(VV[18],base[4]);
  778.     if((cadddr(base[0]))==Cnil){
  779.     goto T582;}
  780.     base[5]= base[0];
  781.     base[6]= base[1];
  782.     vs_top=(vs_base=base+5)+2;
  783.     L8();
  784.     bds_unwind1;
  785.     return;
  786. T582:;
  787.     base[5]= base[0];
  788.     base[6]= base[1];
  789.     vs_top=(vs_base=base+5)+2;
  790.     L6();
  791.     bds_unwind1;
  792.     return;
  793. }
  794. /*    function definition for C2LAMBDA-EXPR-WITHOUT-KEY    */
  795.  
  796. static L6()
  797. {    register object *base=vs_base;
  798.     register object *sup=base+VM8;
  799.     vs_reserve(VM8);
  800.     bds_check;
  801.     check_arg(2);
  802.     vs_top=sup;
  803. TTL:;
  804.     {object V21;
  805.     object V22;
  806.     object V23;
  807.     V21= car(base[0]);
  808.     V22= cadr(base[0]);
  809.     V23= caddr(base[0]);
  810.     base[2]= Cnil;
  811.     bds_bind(VV[20],symbol_value(VV[20]));
  812.     bds_bind(VV[21],symbol_value(VV[21]));
  813.     bds_bind(VV[22],symbol_value(VV[22]));
  814.     bds_bind(VV[23],symbol_value(VV[23]));
  815.     base[7]= Cnil;
  816.     {object V24;
  817.     object V25;
  818.     V24= (V21);
  819.     V25= car((V24));
  820. T596:;
  821.     if(!(endp((V24)))){
  822.     goto T597;}
  823.     goto T592;
  824. T597:;
  825.     base[8]= (V25);
  826.     vs_top=(vs_base=base+8)+1;
  827.     L7(base);
  828.     vs_top=sup;
  829.     V24= cdr((V24));
  830.     V25= car((V24));
  831.     goto T596;}
  832. T592:;
  833.     {object V26;
  834.     object V27;
  835.     V26= (V22);
  836.     V27= car((V26));
  837. T612:;
  838.     if(!(endp((V26)))){
  839.     goto T613;}
  840.     goto T608;
  841. T613:;
  842.     base[8]= car((V27));
  843.     vs_top=(vs_base=base+8)+1;
  844.     L7(base);
  845.     vs_top=sup;
  846.     if((caddr((V27)))==Cnil){
  847.     goto T619;}
  848.     base[8]= caddr((V27));
  849.     vs_top=(vs_base=base+8)+1;
  850.     L7(base);
  851.     vs_top=sup;
  852. T619:;
  853.     V26= cdr((V26));
  854.     V27= car((V26));
  855.     goto T612;}
  856. T608:;
  857.     if(((V23))==Cnil){
  858.     goto T591;}
  859.     base[8]= (V23);
  860.     vs_top=(vs_base=base+8)+1;
  861.     L7(base);
  862.     vs_top=sup;
  863. T591:;
  864.     if((symbol_value(VV[27]))!=Cnil){
  865.     goto T632;}
  866.     if((symbol_value(VV[28]))==Cnil){
  867.     goto T631;}
  868. T632:;
  869.     if(((V23))!=Cnil){
  870.     goto T636;}
  871.     if(((V22))==Cnil){
  872.     goto T637;}
  873. T636:;
  874.     if(((V21))==Cnil){
  875.     goto T641;}
  876.     princ_str("\n    if(vs_top-vs_base<",VV[26]);
  877.     base[8]= make_fixnum(length((V21)));
  878.     (void)simple_symlispcall_no_event(VV[80],base+8,1);
  879.     princ_str(") too_few_arguments();",VV[26]);
  880. T641:;
  881.     if(((V23))!=Cnil){
  882.     goto T631;}
  883.     princ_str("\n    if(vs_top-vs_base>",VV[26]);
  884.     base[9]= make_fixnum(length((V21)));
  885.     base[10]= make_fixnum(length((V22)));
  886.     base[8]= number_plus(base[9],base[10]);
  887.     (void)simple_symlispcall_no_event(VV[80],base+8,1);
  888.     princ_str(") too_many_arguments();",VV[26]);
  889.     goto T631;
  890. T637:;
  891.     princ_str("\n    check_arg(",VV[26]);
  892.     base[8]= make_fixnum(length((V21)));
  893.     (void)simple_symlispcall_no_event(VV[80],base+8,1);
  894.     princ_str(");",VV[26]);
  895. T631:;
  896.     {object V28;
  897.     object V29;
  898.     V28= (V21);
  899.     V29= car((V28));
  900. T662:;
  901.     if(!(endp((V28)))){
  902.     goto T663;}
  903.     goto T658;
  904. T663:;
  905.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  906.     structure_set((V29),VV[8],2,base[8]);
  907.     V28= cdr((V28));
  908.     V29= car((V28));
  909.     goto T662;}
  910. T658:;
  911.     {object V30;
  912.     object V31;
  913.     V30= (V22);
  914.     V31= car((V30));
  915. T678:;
  916.     if(!(endp((V30)))){
  917.     goto T679;}
  918.     goto T674;
  919. T679:;
  920.     {object V32= car((V31));
  921.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  922.     structure_set(V32,VV[8],2,base[8]);}
  923.     V30= cdr((V30));
  924.     V31= car((V30));
  925.     goto T678;}
  926. T674:;
  927.     if(((V23))==Cnil){
  928.     goto T690;}
  929.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  930.     structure_set((V23),VV[8],2,base[8]);
  931. T690:;
  932.     {object V33;
  933.     object V34;
  934.     V33= (V22);
  935.     V34= car((V33));
  936. T698:;
  937.     if(!(endp((V33)))){
  938.     goto T699;}
  939.     goto T694;
  940. T699:;
  941.     if((caddr((V34)))==Cnil){
  942.     goto T703;}
  943.     {object V35= caddr((V34));
  944.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  945.     structure_set(V35,VV[8],2,base[8]);}
  946. T703:;
  947.     V33= cdr((V33));
  948.     V34= car((V33));
  949.     goto T698;}
  950. T694:;
  951.     {object V36;
  952.     object V37;
  953.     V36= (V21);
  954.     V37= car((V36));
  955. T716:;
  956.     if(!(endp((V36)))){
  957.     goto T717;}
  958.     goto T712;
  959. T717:;
  960.     base[8]= (V37);
  961.     (void)simple_symlispcall_no_event(VV[82],base+8,1);
  962.     V36= cdr((V36));
  963.     V37= car((V36));
  964.     goto T716;}
  965. T712:;
  966.     if(((V22))!=Cnil){
  967.     goto T730;}
  968.     if(((V23))==Cnil){
  969.     goto T728;}
  970. T730:;
  971.     if(((V21))==Cnil){
  972.     goto T728;}
  973.     princ_str("\n    vs_base=vs_base+",VV[26]);
  974.     base[8]= make_fixnum(length((V21)));
  975.     (void)simple_symlispcall_no_event(VV[80],base+8,1);
  976.     princ_char(59,VV[26]);
  977. T728:;
  978.     if(((V22))==Cnil){
  979.     goto T741;}
  980.     bds_bind(VV[22],(VV[22]->s.s_dbind));
  981.     bds_bind(VV[20],(VV[20]->s.s_dbind));
  982.     bds_bind(VV[23],(VV[23]->s.s_dbind));
  983.     {object V38;
  984.     V38= (V22);
  985. T747:;
  986.     if(!(endp((V38)))){
  987.     goto T748;}
  988.     goto T744;
  989. T748:;
  990.     setq(VV[29],number_plus(symbol_value(VV[29]),VV[25]));
  991.     base[11]= symbol_value(VV[29]);
  992.     base[12]= make_cons(base[11],Cnil);
  993.     base[2]= make_cons(base[12],base[2]);
  994.     princ_str("\n    if(vs_base>=vs_top){",VV[26]);
  995.     (void)simple_symlispcall_no_event(VV[83],base+11,0);
  996.     if(type_of(car(base[2]))!=t_cons)FEwrong_type_argument(Scons,car(base[2]));
  997.     (car(base[2]))->c.c_cdr = Ct;
  998.     princ_str("goto T",VV[26]);
  999.     base[11]= car(car(base[2]));
  1000.     (void)simple_symlispcall_no_event(VV[80],base+11,1);
  1001.     princ_char(59,VV[26]);
  1002.     princ_char(125,VV[26]);
  1003.     base[11]= caar((V38));
  1004.     (void)simple_symlispcall_no_event(VV[82],base+11,1);
  1005.     if((caddar((V38)))==Cnil){
  1006.     goto T769;}
  1007.     base[11]= caddar((V38));
  1008.     base[12]= Ct;
  1009.     (void)simple_symlispcall_no_event(VV[84],base+11,2);
  1010. T769:;
  1011.     if((cdr((V38)))!=Cnil){
  1012.     goto T775;}
  1013.     if(((V23))==Cnil){
  1014.     goto T774;}
  1015. T775:;
  1016.     princ_str("\n    vs_base++;",VV[26]);
  1017. T774:;
  1018.     V38= cdr((V38));
  1019.     goto T747;}
  1020. T744:;
  1021.     if(((V23))==Cnil){
  1022.     bds_unwind1;
  1023.     bds_unwind1;
  1024.     bds_unwind1;
  1025.     goto T743;}
  1026.     princ_str("\n    vs_top[0]=Cnil;",VV[26]);
  1027.     princ_str("\n    {object *p=vs_top;",VV[26]);
  1028.     princ_str("\n     for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[26]);
  1029.     base[11]= (V23);
  1030.     base[12]= simple_symlispcall_no_event(VV[82],base+11,1);
  1031.     bds_unwind1;
  1032.     bds_unwind1;
  1033.     bds_unwind1;
  1034. T743:;
  1035.     princ_str("\n    ",VV[26]);
  1036.     (void)simple_symlispcall_no_event(VV[83],base+8,0);
  1037.     setq(VV[29],number_plus(symbol_value(VV[29]),VV[25]));
  1038.     base[9]= symbol_value(VV[29]);
  1039.     base[8]= make_cons(base[9],Cnil);
  1040.     princ_str("\n    ",VV[26]);
  1041.     if(type_of(base[8])!=t_cons)FEwrong_type_argument(Scons,base[8]);
  1042.     (base[8])->c.c_cdr = Ct;
  1043.     princ_str("goto T",VV[26]);
  1044.     base[9]= car(base[8]);
  1045.     (void)simple_symlispcall_no_event(VV[80],base+9,1);
  1046.     princ_char(59,VV[26]);
  1047.     base[2]= reverse(base[2]);
  1048.     {object V39;
  1049.     object V40;
  1050.     V39= (V22);
  1051.     V40= car((V39));
  1052. T810:;
  1053.     if(!(endp((V39)))){
  1054.     goto T811;}
  1055.     goto T806;
  1056. T811:;
  1057.     if((cdr(car(base[2])))==Cnil){
  1058.     goto T815;}
  1059.     princ_str("\nT",VV[26]);
  1060.     base[9]= car(car(base[2]));
  1061.     (void)simple_symlispcall_no_event(VV[80],base+9,1);
  1062.     princ_str(":;",VV[26]);
  1063. T815:;
  1064.     base[9]= car(base[2]);
  1065.     base[2]= cdr(base[2]);
  1066.     base[9]= car((V40));
  1067.     base[10]= cadr((V40));
  1068.     (void)simple_symlispcall_no_event(VV[85],base+9,2);
  1069.     if((caddr((V40)))==Cnil){
  1070.     goto T829;}
  1071.     base[9]= caddr((V40));
  1072.     base[10]= Cnil;
  1073.     (void)simple_symlispcall_no_event(VV[84],base+9,2);
  1074. T829:;
  1075.     V39= cdr((V39));
  1076.     V40= car((V39));
  1077.     goto T810;}
  1078. T806:;
  1079.     if(((V23))==Cnil){
  1080.     goto T839;}
  1081.     base[9]= (V23);
  1082.     base[10]= Cnil;
  1083.     (void)simple_symlispcall_no_event(VV[84],base+9,2);
  1084. T839:;
  1085.     if((cdr(base[8]))==Cnil){
  1086.     goto T739;}
  1087.     princ_str("\nT",VV[26]);
  1088.     base[9]= car(base[8]);
  1089.     (void)simple_symlispcall_no_event(VV[80],base+9,1);
  1090.     princ_str(":;",VV[26]);
  1091.     goto T739;
  1092. T741:;
  1093.     if(((V23))==Cnil){
  1094.     goto T851;}
  1095.     princ_str("\n    vs_top[0]=Cnil;",VV[26]);
  1096.     princ_str("\n    {object *p=vs_top;",VV[26]);
  1097.     princ_str("\n     for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[26]);
  1098.     base[8]= (V23);
  1099.     (void)simple_symlispcall_no_event(VV[82],base+8,1);
  1100.     princ_str("\n    ",VV[26]);
  1101.     (void)simple_symlispcall_no_event(VV[83],base+8,0);
  1102.     goto T739;
  1103. T851:;
  1104.     princ_str("\n    ",VV[26]);
  1105.     (void)simple_symlispcall_no_event(VV[83],base+8,0);
  1106. T739:;
  1107.     if((symbol_value(VV[18]))==Cnil){
  1108.     goto T863;}
  1109.     (VV[20]->s.s_dbind)= make_cons(VV[30],(VV[20]->s.s_dbind));
  1110.     princ_str("\nTTL:;",VV[26]);
  1111. T863:;
  1112.     base[8]= base[1];
  1113.     (void)simple_symlispcall_no_event(VV[86],base+8,1);
  1114.     if((base[7])==Cnil){
  1115.     goto T872;}
  1116.     princ_str("\n    }",VV[26]);
  1117.     base[8]= Cnil;
  1118.     vs_top=(vs_base=base+8)+1;
  1119.     bds_unwind1;
  1120.     bds_unwind1;
  1121.     bds_unwind1;
  1122.     bds_unwind1;
  1123.     return;
  1124. T872:;
  1125.     base[8]= Cnil;
  1126.     vs_top=(vs_base=base+8)+1;
  1127.     bds_unwind1;
  1128.     bds_unwind1;
  1129.     bds_unwind1;
  1130.     bds_unwind1;
  1131.     return;}
  1132. }
  1133. /*    function definition for C2LAMBDA-EXPR-WITH-KEY    */
  1134.  
  1135. static L8()
  1136. {    register object *base=vs_base;
  1137.     register object *sup=base+VM9;
  1138.     vs_reserve(VM9);
  1139.     bds_check;
  1140.     check_arg(2);
  1141.     vs_top=sup;
  1142. TTL:;
  1143.     {object V41;
  1144.     object V42;
  1145.     object V43;
  1146.     object V44;
  1147.     object V45;
  1148.     V41= car(base[0]);
  1149.     V42= cadr(base[0]);
  1150.     V43= caddr(base[0]);
  1151.     V44= car(cddddr(base[0]));
  1152.     V45= cadr(cddddr(base[0]));
  1153.     base[2]= Cnil;
  1154.     bds_bind(VV[20],symbol_value(VV[20]));
  1155.     bds_bind(VV[21],symbol_value(VV[21]));
  1156.     bds_bind(VV[22],symbol_value(VV[22]));
  1157.     bds_bind(VV[23],symbol_value(VV[23]));
  1158.     base[7]= Cnil;
  1159.     {object V46;
  1160.     object V47;
  1161.     V46= (V41);
  1162.     V47= car((V46));
  1163. T885:;
  1164.     if(!(endp((V46)))){
  1165.     goto T886;}
  1166.     goto T881;
  1167. T886:;
  1168.     base[8]= (V47);
  1169.     vs_top=(vs_base=base+8)+1;
  1170.     L9(base);
  1171.     vs_top=sup;
  1172.     V46= cdr((V46));
  1173.     V47= car((V46));
  1174.     goto T885;}
  1175. T881:;
  1176.     {object V48;
  1177.     object V49;
  1178.     V48= (V42);
  1179.     V49= car((V48));
  1180. T901:;
  1181.     if(!(endp((V48)))){
  1182.     goto T902;}
  1183.     goto T897;
  1184. T902:;
  1185.     base[8]= car((V49));
  1186.     vs_top=(vs_base=base+8)+1;
  1187.     L9(base);
  1188.     vs_top=sup;
  1189.     if((caddr((V49)))==Cnil){
  1190.     goto T908;}
  1191.     base[8]= caddr((V49));
  1192.     vs_top=(vs_base=base+8)+1;
  1193.     L9(base);
  1194.     vs_top=sup;
  1195. T908:;
  1196.     V48= cdr((V48));
  1197.     V49= car((V48));
  1198.     goto T901;}
  1199. T897:;
  1200.     if(((V43))==Cnil){
  1201.     goto T917;}
  1202.     base[8]= (V43);
  1203.     vs_top=(vs_base=base+8)+1;
  1204.     L9(base);
  1205.     vs_top=sup;
  1206. T917:;
  1207.     {object V50;
  1208.     object V51;
  1209.     V50= (V44);
  1210.     V51= car((V50));
  1211. T924:;
  1212.     if(!(endp((V50)))){
  1213.     goto T925;}
  1214.     goto T880;
  1215. T925:;
  1216.     base[8]= cadr((V51));
  1217.     vs_top=(vs_base=base+8)+1;
  1218.     L9(base);
  1219.     vs_top=sup;
  1220.     if((cadddr((V51)))==Cnil){
  1221.     goto T931;}
  1222.     base[8]= cadddr((V51));
  1223.     vs_top=(vs_base=base+8)+1;
  1224.     L9(base);
  1225.     vs_top=sup;
  1226. T931:;
  1227.     V50= cdr((V50));
  1228.     V51= car((V50));
  1229.     goto T924;}
  1230. T880:;
  1231.     if((symbol_value(VV[27]))!=Cnil){
  1232.     goto T942;}
  1233.     if((symbol_value(VV[28]))==Cnil){
  1234.     goto T940;}
  1235. T942:;
  1236.     if(((V41))==Cnil){
  1237.     goto T940;}
  1238.     if(((V41))==Cnil){
  1239.     goto T940;}
  1240.     princ_str("\n    if(vs_top-vs_base<",VV[26]);
  1241.     base[8]= make_fixnum(length((V41)));
  1242.     (void)simple_symlispcall_no_event(VV[80],base+8,1);
  1243.     princ_str(") too_few_arguments();",VV[26]);
  1244. T940:;
  1245.     {object V52;
  1246.     object V53;
  1247.     V52= (V41);
  1248.     V53= car((V52));
  1249. T957:;
  1250.     if(!(endp((V52)))){
  1251.     goto T958;}
  1252.     goto T953;
  1253. T958:;
  1254.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  1255.     structure_set((V53),VV[8],2,base[8]);
  1256.     V52= cdr((V52));
  1257.     V53= car((V52));
  1258.     goto T957;}
  1259. T953:;
  1260.     {object V54;
  1261.     object V55;
  1262.     V54= (V42);
  1263.     V55= car((V54));
  1264. T973:;
  1265.     if(!(endp((V54)))){
  1266.     goto T974;}
  1267.     goto T969;
  1268. T974:;
  1269.     {object V56= car((V55));
  1270.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  1271.     structure_set(V56,VV[8],2,base[8]);}
  1272.     V54= cdr((V54));
  1273.     V55= car((V54));
  1274.     goto T973;}
  1275. T969:;
  1276.     if(((V43))==Cnil){
  1277.     goto T985;}
  1278.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  1279.     structure_set((V43),VV[8],2,base[8]);
  1280. T985:;
  1281.     {object V57;
  1282.     object V58;
  1283.     V57= (V44);
  1284.     V58= car((V57));
  1285. T993:;
  1286.     if(!(endp((V57)))){
  1287.     goto T994;}
  1288.     goto T989;
  1289. T994:;
  1290.     {object V59= cadr((V58));
  1291.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  1292.     structure_set(V59,VV[8],2,base[8]);}
  1293.     V57= cdr((V57));
  1294.     V58= car((V57));
  1295.     goto T993;}
  1296. T989:;
  1297.     {object V60;
  1298.     object V61;
  1299.     V60= (V44);
  1300.     V61= car((V60));
  1301. T1009:;
  1302.     if(!(endp((V60)))){
  1303.     goto T1010;}
  1304.     goto T1005;
  1305. T1010:;
  1306.     {object V62= cadddr((V61));
  1307.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  1308.     structure_set(V62,VV[8],2,base[8]);}
  1309.     V60= cdr((V60));
  1310.     V61= car((V60));
  1311.     goto T1009;}
  1312. T1005:;
  1313.     {object V63;
  1314.     object V64;
  1315.     V63= (V42);
  1316.     V64= car((V63));
  1317. T1025:;
  1318.     if(!(endp((V63)))){
  1319.     goto T1026;}
  1320.     goto T1021;
  1321. T1026:;
  1322.     if((caddr((V64)))==Cnil){
  1323.     goto T1030;}
  1324.     {object V65= caddr((V64));
  1325.     base[8]= simple_symlispcall_no_event(VV[81],base+9,0);
  1326.     structure_set(V65,VV[8],2,base[8]);}
  1327. T1030:;
  1328.     V63= cdr((V63));
  1329.     V64= car((V63));
  1330.     goto T1025;}
  1331. T1021:;
  1332.     princ_str("\n    parse_key(vs_base",VV[26]);
  1333.     if(((V41))!=Cnil){
  1334.     goto T1042;}
  1335.     if(((V42))==Cnil){
  1336.     goto T1041;}
  1337. T1042:;
  1338.     princ_char(43,VV[26]);
  1339.     base[9]= make_fixnum(length((V41)));
  1340.     base[10]= make_fixnum(length((V42)));
  1341.     base[8]= number_plus(base[9],base[10]);
  1342.     (void)simple_symlispcall_no_event(VV[80],base+8,1);
  1343. T1041:;
  1344.     if(((V43))==Cnil){
  1345.     goto T1051;}
  1346.     princ_str(",TRUE,",VV[26]);
  1347.     goto T1049;
  1348. T1051:;
  1349.     princ_str(",FALSE,",VV[26]);
  1350. T1049:;
  1351.     if(((V45))==Cnil){
  1352.     goto T1057;}
  1353.     princ_str("TRUE,",VV[26]);
  1354.     goto T1055;
  1355. T1057:;
  1356.     princ_str("FALSE,",VV[26]);
  1357. T1055:;
  1358.     base[8]= make_fixnum(length((V44)));
  1359.     (void)simple_symlispcall_no_event(VV[80],base+8,1);
  1360.     {object V66;
  1361.     object V67;
  1362.     V66= (V44);
  1363.     V67= car((V66));
  1364. T1068:;
  1365.     if(!(endp((V66)))){
  1366.     goto T1069;}
  1367.     goto T1064;
  1368. T1069:;
  1369.     princ_str(",VV[",VV[26]);
  1370.     base[8]=symbol_function(VV[80]);
  1371.     base[10]= car((V67));
  1372.     base[9]= simple_symlispcall_no_event(VV[87],base+10,1);
  1373.     (void)simple_lispcall_no_event(base+8,1);
  1374.     princ_char(93,VV[26]);
  1375.     V66= cdr((V66));
  1376.     V67= car((V66));
  1377.     goto T1068;}
  1378. T1064:;
  1379.     princ_str(");",VV[26]);
  1380.     {object V68;
  1381.     object V69;
  1382.     V68= (V41);
  1383.     V69= car((V68));
  1384. T1090:;
  1385.     if(!(endp((V68)))){
  1386.     goto T1091;}
  1387.     goto T1086;
  1388. T1091:;
  1389.     base[8]= (V69);
  1390.     (void)simple_symlispcall_no_event(VV[82],base+8,1);
  1391.     V68= cdr((V68));
  1392.     V69= car((V68));
  1393.     goto T1090;}
  1394. T1086:;
  1395.     if(((V42))==Cnil){
  1396.     goto T1102;}
  1397.     if(((V41))==Cnil){
  1398.     goto T1105;}
  1399.     princ_str("\n    vs_base += ",VV[26]);
  1400.     base[8]= make_fixnum(length((V41)));
  1401.     (void)simple_symlispcall_no_event(VV[80],base+8,1);
  1402.     princ_char(59,VV[26]);
  1403. T1105:;
  1404.     bds_bind(VV[22],(VV[22]->s.s_dbind));
  1405.     bds_bind(VV[20],(VV[20]->s.s_dbind));
  1406.     bds_bind(VV[23],(VV[23]->s.s_dbind));
  1407.     {object V70;
  1408.     V70= (V42);
  1409. T1115:;
  1410.     if(!(endp((V70)))){
  1411.     goto T1116;}
  1412.     bds_unwind1;
  1413.     bds_unwind1;
  1414.     bds_unwind1;
  1415.     goto T1112;
  1416. T1116:;
  1417.     setq(VV[29],number_plus(symbol_value(VV[29]),VV[25]));
  1418.     base[11]= symbol_value(VV[29]);
  1419.     base[12]= make_cons(base[11],Cnil);
  1420.     base[2]= make_cons(base[12],base[2]);
  1421.     princ_str("\n    if(vs_base>=vs_top){vs_top=sup;",VV[26]);
  1422.     if(type_of(car(base[2]))!=t_cons)FEwrong_type_argument(Scons,car(base[2]));
  1423.     (car(base[2]))->c.c_cdr = Ct;
  1424.     princ_str("goto T",VV[26]);
  1425.     base[11]= car(car(base[2]));
  1426.     (void)simple_symlispcall_no_event(VV[80],base+11,1);
  1427.     princ_char(59,VV[26]);
  1428.     princ_char(125,VV[26]);
  1429.     base[11]= caar((V70));
  1430.     (void)simple_symlispcall_no_event(VV[82],base+11,1);
  1431.     if((caddar((V70)))==Cnil){
  1432.     goto T1136;}
  1433.     base[11]= caddar((V70));
  1434.     base[12]= Ct;
  1435.     (void)simple_symlispcall_no_event(VV[84],base+11,2);
  1436. T1136:;
  1437.     if((cdr((V70)))==Cnil){
  1438.     goto T1141;}
  1439.     princ_str("\n    vs_base++;",VV[26]);
  1440. T1141:;
  1441.     V70= cdr((V70));
  1442.     goto T1115;}
  1443. T1112:;
  1444.     base[2]= reverse(base[2]);
  1445. T1102:;
  1446.     princ_str("\n    vs_top=sup;",VV[26]);
  1447.     if(((V42))==Cnil){
  1448.     goto T1151;}
  1449.     setq(VV[29],number_plus(symbol_value(VV[29]),VV[25]));
  1450.     base[9]= symbol_value(VV[29]);
  1451.     base[8]= make_cons(base[9],Cnil);
  1452.     if(type_of(base[8])!=t_cons)FEwrong_type_argument(Scons,base[8]);
  1453.     (base[8])->c.c_cdr = Ct;
  1454.     princ_str("goto T",VV[26]);
  1455.     base[9]= car(base[8]);
  1456.     (void)simple_symlispcall_no_event(VV[80],base+9,1);
  1457.     princ_char(59,VV[26]);
  1458.     {object V71;
  1459.     object V72;
  1460.     V71= (V42);
  1461.     V72= car((V71));
  1462. T1167:;
  1463.     if(!(endp((V71)))){
  1464.     goto T1168;}
  1465.     goto T1163;
  1466. T1168:;
  1467.     if((cdr(car(base[2])))==Cnil){
  1468.     goto T1172;}
  1469.     princ_str("\nT",VV[26]);
  1470.     base[9]= car(car(base[2]));
  1471.     (void)simple_symlispcall_no_event(VV[80],base+9,1);
  1472.     princ_str(":;",VV[26]);
  1473. T1172:;
  1474.     base[9]= car(base[2]);
  1475.     base[2]= cdr(base[2]);
  1476.     base[9]= car((V72));
  1477.     base[10]= cadr((V72));
  1478.     (void)simple_symlispcall_no_event(VV[85],base+9,2);
  1479.     if((caddr((V72)))==Cnil){
  1480.     goto T1186;}
  1481.     base[9]= caddr((V72));
  1482.     base[10]= Cnil;
  1483.     (void)simple_symlispcall_no_event(VV[84],base+9,2);
  1484. T1186:;
  1485.     V71= cdr((V71));
  1486.     V72= car((V71));
  1487.     goto T1167;}
  1488. T1163:;
  1489.     if((cdr(base[8]))==Cnil){
  1490.     goto T1151;}
  1491.     princ_str("\nT",VV[26]);
  1492.     base[9]= car(base[8]);
  1493.     (void)simple_symlispcall_no_event(VV[80],base+9,1);
  1494.     princ_str(":;",VV[26]);
  1495. T1151:;
  1496.     if(((V43))==Cnil){
  1497.     goto T1202;}
  1498.     base[8]= (V43);
  1499.     (void)simple_symlispcall_no_event(VV[82],base+8,1);
  1500. T1202:;
  1501.     {object V73;
  1502.     object V74;
  1503.     V73= (V44);
  1504.     V74= car((V73));
  1505. T1210:;
  1506.     if(!(endp((V73)))){
  1507.     goto T1211;}
  1508.     goto T1206;
  1509. T1211:;
  1510.     if(!(caaddr((V74))==VV[31])){
  1511.     goto T1217;}
  1512.     if((caddr(caddr((V74))))!=Cnil){
  1513.     goto T1217;}
  1514.     base[8]= cadr((V74));
  1515.     (void)simple_symlispcall_no_event(VV[82],base+8,1);
  1516.     goto T1215;
  1517. T1217:;
  1518.     princ_str("\n    if(",VV[26]);
  1519.     base[8]= structure_ref(cadddr((V74)),VV[8],2);
  1520.     (void)simple_symlispcall_no_event(VV[88],base+8,1);
  1521.     princ_str("==Cnil){",VV[26]);
  1522.     bds_bind(VV[22],(VV[22]->s.s_dbind));
  1523.     bds_bind(VV[20],(VV[20]->s.s_dbind));
  1524.     bds_bind(VV[23],(VV[23]->s.s_dbind));
  1525.     base[11]= cadr((V74));
  1526.     base[12]= caddr((V74));
  1527.     base[13]= simple_symlispcall_no_event(VV[85],base+11,2);
  1528.     bds_unwind1;
  1529.     bds_unwind1;
  1530.     bds_unwind1;
  1531.     princ_str("\n    }else{",VV[26]);
  1532.     base[8]= cadr((V74));
  1533.     (void)simple_symlispcall_no_event(VV[82],base+8,1);
  1534.     princ_char(125,VV[26]);
  1535. T1215:;
  1536.     if(structure_ref(cadddr((V74)),VV[8],1)==VV[14]){
  1537.     goto T1236;}
  1538.     base[8]= cadddr((V74));
  1539.     (void)simple_symlispcall_no_event(VV[82],base+8,1);
  1540. T1236:;
  1541.     V73= cdr((V73));
  1542.     V74= car((V73));
  1543.     goto T1210;}
  1544. T1206:;
  1545.     base[8]= base[1];
  1546.     (void)simple_symlispcall_no_event(VV[86],base+8,1);
  1547.     if((base[7])==Cnil){
  1548.     goto T1248;}
  1549.     princ_str("\n    }",VV[26]);
  1550.     base[8]= Cnil;
  1551.     vs_top=(vs_base=base+8)+1;
  1552.     bds_unwind1;
  1553.     bds_unwind1;
  1554.     bds_unwind1;
  1555.     bds_unwind1;
  1556.     return;
  1557. T1248:;
  1558.     base[8]= Cnil;
  1559.     vs_top=(vs_base=base+8)+1;
  1560.     bds_unwind1;
  1561.     bds_unwind1;
  1562.     bds_unwind1;
  1563.     bds_unwind1;
  1564.     return;}
  1565. }
  1566. /*    function definition for NEED-TO-SET-VS-POINTERS    */
  1567.  
  1568. static L10()
  1569. {    register object *base=vs_base;
  1570.     register object *sup=base+VM10;
  1571.     vs_reserve(VM10);
  1572.     check_arg(1);
  1573.     vs_top=sup;
  1574. TTL:;
  1575.     if(symbol_value(VV[27])!=Cnil){
  1576.     base[2]= symbol_value(VV[27]);
  1577.     vs_top=(vs_base=base+2)+1;
  1578.     return;}
  1579.     if(symbol_value(VV[28])!=Cnil){
  1580.     base[2]= symbol_value(VV[28]);
  1581.     vs_top=(vs_base=base+2)+1;
  1582.     return;}
  1583.     base[1]= cadr(base[0]);
  1584.     if(base[1]==Cnil)goto T1251;
  1585.     vs_top=(vs_base=base+1)+1;
  1586.     return;
  1587. T1251:;
  1588.     base[1]= caddr(base[0]);
  1589.     if(base[1]==Cnil)goto T1253;
  1590.     vs_top=(vs_base=base+1)+1;
  1591.     return;
  1592. T1253:;
  1593.     base[2]= cadddr(base[0]);
  1594.     vs_top=(vs_base=base+2)+1;
  1595.     return;
  1596. }
  1597. /*    function definition for C1DM    */
  1598.  
  1599. static L11()
  1600. {    register object *base=vs_base;
  1601.     register object *sup=base+VM11;
  1602.     vs_reserve(VM11);
  1603.     bds_check;
  1604.     check_arg(3);
  1605.     vs_top=sup;
  1606. TTL:;
  1607.     bds_bind(VV[21],symbol_value(VV[21]));
  1608.     base[4]= Cnil;
  1609.     base[5]= Cnil;
  1610.     bds_bind(VV[32],Cnil);
  1611.     bds_bind(VV[33],simple_symlispcall_no_event(VV[67],base+8,0));
  1612.     bds_bind(VV[34],Cnil);
  1613.     base[9]= Cnil;
  1614.     base[10]= Cnil;
  1615.     base[11]= Cnil;
  1616.     base[12]= Cnil;
  1617.     base[13]= Cnil;
  1618.     base[14]= Cnil;
  1619.     base[15]= base[2];
  1620.     base[16]= Ct;
  1621.     symlispcall_no_event(VV[69],base+15,2);
  1622.     if(vs_base<vs_top){
  1623.     base[2]= vs_base[0];
  1624.     vs_base++;
  1625.     }else{
  1626.     base[2]= Cnil;}
  1627.     if(vs_base<vs_top){
  1628.     base[10]= vs_base[0];
  1629.     vs_base++;
  1630.     }else{
  1631.     base[10]= Cnil;}
  1632.     if(vs_base<vs_top){
  1633.     base[12]= vs_base[0];
  1634.     vs_base++;
  1635.     }else{
  1636.     base[12]= Cnil;}
  1637.     if(vs_base<vs_top){
  1638.     base[11]= vs_base[0];
  1639.     vs_base++;
  1640.     }else{
  1641.     base[11]= Cnil;}
  1642.     if(vs_base<vs_top){
  1643.     base[13]= vs_base[0];
  1644.     vs_base++;
  1645.     }else{
  1646.     base[13]= Cnil;}
  1647.     if(vs_base<vs_top){
  1648.     base[9]= vs_base[0];
  1649.     }else{
  1650.     base[9]= Cnil;}
  1651.     vs_top=sup;
  1652.     base[15]= listA(3,VV[6],base[0],base[2]);
  1653.     base[2]= make_cons(base[15],Cnil);
  1654.     base[15]= base[10];
  1655.     (void)simple_symlispcall_no_event(VV[70],base+15,1);
  1656.     if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
  1657.     goto T1264;}
  1658.     if(!(car(base[1])==VV[35])){
  1659.     goto T1264;}
  1660.     (VV[32]->s.s_dbind)= make_cons(cadr(base[1]),(VV[32]->s.s_dbind));
  1661.     base[15]= cadr(base[1]);
  1662.     base[16]= base[10];
  1663.     base[17]= base[11];
  1664.     base[18]= base[12];
  1665.     base[4]= simple_symlispcall_no_event(VV[71],base+15,4);
  1666.     (VV[34]->s.s_dbind)= make_cons(base[4],(VV[34]->s.s_dbind));
  1667.     setq(VV[3],make_cons(base[4],symbol_value(VV[3])));
  1668.     base[1]= cddr(base[1]);
  1669. T1264:;
  1670.     if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
  1671.     goto T1282;}
  1672.     if(!(car(base[1])==VV[36])){
  1673.     goto T1282;}
  1674.     (VV[32]->s.s_dbind)= make_cons(cadr(base[1]),(VV[32]->s.s_dbind));
  1675.     base[15]= cadr(base[1]);
  1676.     base[16]= base[10];
  1677.     base[17]= base[11];
  1678.     base[18]= base[12];
  1679.     base[5]= simple_symlispcall_no_event(VV[71],base+15,4);
  1680.     (VV[34]->s.s_dbind)= make_cons(base[5],(VV[34]->s.s_dbind));
  1681.     setq(VV[3],make_cons(base[5],symbol_value(VV[3])));
  1682.     base[1]= cddr(base[1]);
  1683. T1282:;
  1684.     base[15]= base[1];
  1685.     base[16]= base[10];
  1686.     base[17]= base[11];
  1687.     base[18]= base[12];
  1688.     vs_top=(vs_base=base+15)+4;
  1689.     L12();
  1690.     if(vs_base<vs_top){
  1691.     base[1]= vs_base[0];
  1692.     vs_base++;
  1693.     }else{
  1694.     base[1]= Cnil;}
  1695.     if(vs_base<vs_top){
  1696.     base[14]= vs_base[0];
  1697.     }else{
  1698.     base[14]= Cnil;}
  1699.     vs_top=sup;
  1700.     base[15]= (VV[32]->s.s_dbind);
  1701.     base[16]= base[12];
  1702.     base[17]= base[11];
  1703.     (void)simple_symlispcall_no_event(VV[77],base+15,3);
  1704.     base[15]= base[13];
  1705.     base[16]= base[2];
  1706.     base[2]= simple_symlispcall_no_event(VV[78],base+15,2);
  1707.     base[15]= (VV[33]->s.s_dbind);
  1708.     base[16]= cadr(base[2]);
  1709.     (void)simple_symlispcall_no_event(VV[76],base+15,2);
  1710.     {object V75;
  1711.     base[15]= (VV[34]->s.s_dbind);
  1712.     V75= car(base[15]);
  1713. T1320:;
  1714.     if(!(endp(base[15]))){
  1715.     goto T1321;}
  1716.     goto T1317;
  1717. T1321:;
  1718.     base[16]= (V75);
  1719.     (void)simple_symlispcall_no_event(VV[79],base+16,1);
  1720.     base[15]= cdr(base[15]);
  1721.     V75= car(base[15]);
  1722.     goto T1320;}
  1723. T1317:;
  1724.     base[15]= list(6,base[9],base[14],base[4],base[5],base[1],base[2]);
  1725.     vs_top=(vs_base=base+15)+1;
  1726.     bds_unwind1;
  1727.     bds_unwind1;
  1728.     bds_unwind1;
  1729.     bds_unwind1;
  1730.     return;
  1731. }
  1732. /*    function definition for C1DM-VL    */
  1733.  
  1734. static L12()
  1735. {    register object *base=vs_base;
  1736.     register object *sup=base+VM12;
  1737.     vs_reserve(VM12);
  1738.     check_arg(4);
  1739.     vs_top=sup;
  1740. TTL:;
  1741.     base[4]= Cnil;
  1742.     base[5]= Cnil;
  1743.     base[6]= Cnil;
  1744.     base[7]= Cnil;
  1745.     base[8]= Cnil;
  1746.     base[9]= Cnil;
  1747.     base[10]= Cnil;
  1748.     base[11]= Cnil;
  1749.     base[12]= Cnil;
  1750.     base[13]= Cnil;
  1751.     base[14]= Cnil;
  1752.     base[15]= Cnil;
  1753.     base[16]= VV[37];
  1754.     base[17]= Cnil;
  1755. T1333:;
  1756.     if(type_of(base[0])==t_cons){
  1757.     goto T1334;}
  1758.     if((base[0])==Cnil){
  1759.     goto T1337;}
  1760.     if((base[5])==Cnil){
  1761.     goto T1340;}
  1762.     base[18]= VV[38];
  1763.     (void)simple_symlispcall_no_event(VV[89],base+18,1);
  1764. T1340:;
  1765.     base[18]= base[0];
  1766.     base[19]= base[1];
  1767.     base[20]= base[2];
  1768.     base[21]= base[3];
  1769.     vs_top=(vs_base=base+18)+4;
  1770.     L13();
  1771.     vs_top=sup;
  1772.     base[11]= vs_base[0];
  1773. T1337:;
  1774.     base[19]= reverse(base[9]);
  1775.     base[20]= reverse(base[10]);
  1776.     base[21]= reverse(base[13]);
  1777.     base[22]= reverse(base[14]);
  1778.     base[18]= list(7,base[19],base[20],base[11],base[12],base[21],base[15],base[22]);
  1779.     base[19]= base[17];
  1780.     vs_top=(vs_base=base+18)+2;
  1781.     return;
  1782. T1334:;
  1783.     {object V76;
  1784.     V76= car(base[0]);
  1785.     if(!((V76)==VV[39])){
  1786.     goto T1355;}
  1787.     if((base[4])==Cnil){
  1788.     goto T1357;}
  1789.     base[18]= VV[39];
  1790.     (void)simple_symlispcall_no_event(VV[89],base+18,1);
  1791. T1357:;
  1792.     base[4]= Ct;
  1793.     base[18]= car(base[0]);
  1794.     base[0]= cdr(base[0]);
  1795.     goto T1352;
  1796. T1355:;
  1797.     if((V76)==VV[38]){
  1798.     goto T1366;}
  1799.     if(!((V76)==VV[40])){
  1800.     goto T1367;}
  1801. T1366:;
  1802.     if((base[5])==Cnil){
  1803.     goto T1371;}
  1804.     base[18]= (V76);
  1805.     (void)simple_symlispcall_no_event(VV[89],base+18,1);
  1806. T1371:;
  1807.     base[18]= cadr(base[0]);
  1808.     base[19]= base[1];
  1809.     base[20]= base[2];
  1810.     base[21]= base[3];
  1811.     vs_top=(vs_base=base+18)+4;
  1812.     L13();
  1813.     vs_top=sup;
  1814.     base[11]= vs_base[0];
  1815.     base[5]= Ct;
  1816.     base[4]= Ct;
  1817.     base[0]= cddr(base[0]);
  1818.     if(!((V76)==VV[40])){
  1819.     goto T1352;}
  1820.     base[17]= base[16];
  1821.     goto T1352;
  1822. T1367:;
  1823.     if(!((V76)==VV[41])){
  1824.     goto T1391;}
  1825.     if((base[6])==Cnil){
  1826.     goto T1393;}
  1827.     base[18]= VV[41];
  1828.     (void)simple_symlispcall_no_event(VV[89],base+18,1);
  1829. T1393:;
  1830.     base[6]= Ct;
  1831.     base[5]= Ct;
  1832.     base[4]= Ct;
  1833.     base[12]= Ct;
  1834.     base[18]= car(base[0]);
  1835.     base[0]= cdr(base[0]);
  1836.     goto T1352;
  1837. T1391:;
  1838.     if(!((V76)==VV[42])){
  1839.     goto T1409;}
  1840.     if((base[6])==Cnil){
  1841.     goto T1412;}
  1842.     if((base[7])==Cnil){
  1843.     goto T1411;}
  1844. T1412:;
  1845.     base[18]= VV[42];
  1846.     (void)simple_symlispcall_no_event(VV[89],base+18,1);
  1847. T1411:;
  1848.     base[7]= Ct;
  1849.     base[15]= Ct;
  1850.     base[18]= car(base[0]);
  1851.     base[0]= cdr(base[0]);
  1852.     goto T1352;
  1853. T1409:;
  1854.     if(!((V76)==VV[43])){
  1855.     goto T1425;}
  1856.     if((base[8])==Cnil){
  1857.     goto T1427;}
  1858.     base[18]= VV[43];
  1859.     (void)simple_symlispcall_no_event(VV[89],base+18,1);
  1860. T1427:;
  1861.     base[8]= Ct;
  1862.     base[7]= Ct;
  1863.     base[6]= Ct;
  1864.     base[5]= Ct;
  1865.     base[4]= Ct;
  1866.     base[18]= car(base[0]);
  1867.     base[0]= cdr(base[0]);
  1868.     goto T1352;
  1869. T1425:;
  1870.     if((base[8])==Cnil){
  1871.     goto T1445;}
  1872.     base[18]= Cnil;
  1873.     base[19]= Cnil;
  1874.     if(!(type_of((V76))==t_symbol)){
  1875.     goto T1450;}
  1876.     base[18]= (V76);
  1877.     base[19]= simple_symlispcall_no_event(VV[90],base+20,0);
  1878.     goto T1448;
  1879. T1450:;
  1880.     base[18]= car((V76));
  1881.     if(!(endp(cdr((V76))))){
  1882.     goto T1458;}
  1883.     base[19]= simple_symlispcall_no_event(VV[90],base+20,0);
  1884.     goto T1448;
  1885. T1458:;
  1886.     base[20]= cadr((V76));
  1887.     base[21]= symbol_value(VV[33]);
  1888.     base[19]= simple_symlispcall_no_event(VV[73],base+20,2);
  1889. T1448:;
  1890.     base[21]= base[18];
  1891.     base[22]= base[1];
  1892.     base[23]= base[2];
  1893.     base[24]= base[3];
  1894.     vs_top=(vs_base=base+21)+4;
  1895.     L13();
  1896.     vs_top=sup;
  1897.     base[20]= vs_base[0];
  1898.     base[21]= list(2,base[20],base[19]);
  1899.     base[14]= make_cons(base[21],base[14]);
  1900.     base[18]= car(base[0]);
  1901.     base[0]= cdr(base[0]);
  1902.     goto T1352;
  1903. T1445:;
  1904.     if((base[6])==Cnil){
  1905.     goto T1474;}
  1906.     base[18]= Cnil;
  1907.     base[19]= Cnil;
  1908.     base[20]= Cnil;
  1909.     base[21]= Cnil;
  1910.     if(!(type_of((V76))==t_symbol)){
  1911.     goto T1479;}
  1912.     base[18]= (V76);
  1913.     base[22]= coerce_to_string((V76));
  1914.     base[23]= VV[12];
  1915.     vs_top=(vs_base=base+22)+2;
  1916.     Lintern();
  1917.     vs_top=sup;
  1918.     base[19]= vs_base[0];
  1919.     base[20]= simple_symlispcall_no_event(VV[90],base+22,0);
  1920.     goto T1477;
  1921. T1479:;
  1922.     if(!(type_of(car((V76)))==t_symbol)){
  1923.     goto T1490;}
  1924.     base[18]= car((V76));
  1925.     base[22]= coerce_to_string(car((V76)));
  1926.     base[23]= VV[12];
  1927.     vs_top=(vs_base=base+22)+2;
  1928.     Lintern();
  1929.     vs_top=sup;
  1930.     base[19]= vs_base[0];
  1931.     goto T1488;
  1932. T1490:;
  1933.     base[18]= cadar((V76));
  1934.     base[19]= caar((V76));
  1935. T1488:;
  1936.     if(!(endp(cdr((V76))))){
  1937.     goto T1501;}
  1938.     base[20]= simple_symlispcall_no_event(VV[90],base+22,0);
  1939.     goto T1477;
  1940. T1501:;
  1941.     base[22]= cadr((V76));
  1942.     base[23]= symbol_value(VV[33]);
  1943.     base[20]= simple_symlispcall_no_event(VV[73],base+22,2);
  1944.     if(endp(cddr((V76)))){
  1945.     goto T1477;}
  1946.     base[21]= caddr((V76));
  1947. T1477:;
  1948.     base[23]= base[18];
  1949.     base[24]= base[1];
  1950.     base[25]= base[2];
  1951.     base[26]= base[3];
  1952.     vs_top=(vs_base=base+23)+4;
  1953.     L13();
  1954.     vs_top=sup;
  1955.     base[22]= vs_base[0];
  1956.     if((base[21])==Cnil){
  1957.     goto T1519;}
  1958.     base[24]= base[21];
  1959.     base[25]= base[1];
  1960.     base[26]= base[2];
  1961.     base[27]= base[3];
  1962.     vs_top=(vs_base=base+24)+4;
  1963.     L13();
  1964.     vs_top=sup;
  1965.     base[23]= vs_base[0];
  1966.     goto T1517;
  1967. T1519:;
  1968.     base[23]= Cnil;
  1969. T1517:;
  1970.     base[24]= list(4,base[19],base[22],base[20],base[23]);
  1971.     base[13]= make_cons(base[24],base[13]);
  1972.     base[18]= car(base[0]);
  1973.     base[0]= cdr(base[0]);
  1974.     goto T1352;
  1975. T1474:;
  1976.     if((base[4])==Cnil){
  1977.     goto T1529;}
  1978.     base[18]= Cnil;
  1979.     base[19]= Cnil;
  1980.     base[20]= Cnil;
  1981.     if(!(type_of((V76))==t_symbol)){
  1982.     goto T1534;}
  1983.     base[18]= (V76);
  1984.     base[19]= simple_symlispcall_no_event(VV[90],base+21,0);
  1985.     goto T1532;
  1986. T1534:;
  1987.     base[18]= car((V76));
  1988.     if(!(endp(cdr((V76))))){
  1989.     goto T1542;}
  1990.     base[19]= simple_symlispcall_no_event(VV[90],base+21,0);
  1991.     goto T1532;
  1992. T1542:;
  1993.     base[21]= cadr((V76));
  1994.     base[22]= symbol_value(VV[33]);
  1995.     base[19]= simple_symlispcall_no_event(VV[73],base+21,2);
  1996.     if(endp(cddr((V76)))){
  1997.     goto T1532;}
  1998.     base[20]= caddr((V76));
  1999. T1532:;
  2000.     base[22]= base[18];
  2001.     base[23]= base[1];
  2002.     base[24]= base[2];
  2003.     base[25]= base[3];
  2004.     vs_top=(vs_base=base+22)+4;
  2005.     L13();
  2006.     vs_top=sup;
  2007.     base[21]= vs_base[0];
  2008.     if((base[20])==Cnil){
  2009.     goto T1560;}
  2010.     base[23]= base[20];
  2011.     base[24]= base[1];
  2012.     base[25]= base[2];
  2013.     base[26]= base[3];
  2014.     vs_top=(vs_base=base+23)+4;
  2015.     L13();
  2016.     vs_top=sup;
  2017.     base[22]= vs_base[0];
  2018.     goto T1558;
  2019. T1560:;
  2020.     base[22]= Cnil;
  2021. T1558:;
  2022.     base[23]= list(3,base[21],base[19],base[22]);
  2023.     base[10]= make_cons(base[23],base[10]);
  2024.     base[18]= car(base[0]);
  2025.     base[0]= cdr(base[0]);
  2026.     base[16]= number_plus(base[16],VV[25]);
  2027.     goto T1352;
  2028. T1529:;
  2029.     base[19]= (V76);
  2030.     base[20]= base[1];
  2031.     base[21]= base[2];
  2032.     base[22]= base[3];
  2033.     vs_top=(vs_base=base+19)+4;
  2034.     L13();
  2035.     vs_top=sup;
  2036.     base[18]= vs_base[0];
  2037.     base[9]= make_cons(base[18],base[9]);
  2038.     base[18]= car(base[0]);
  2039.     base[0]= cdr(base[0]);
  2040.     base[16]= number_plus(base[16],VV[25]);}
  2041. T1352:;
  2042.     goto T1333;
  2043. }
  2044. /*    function definition for C1DM-V    */
  2045.  
  2046. static L13()
  2047. {    register object *base=vs_base;
  2048.     register object *sup=base+VM13;
  2049.     vs_reserve(VM13);
  2050.     check_arg(4);
  2051.     vs_top=sup;
  2052. TTL:;
  2053.     if(!(type_of(base[0])==t_symbol)){
  2054.     goto T1586;}
  2055.     setq(VV[32],make_cons(base[0],symbol_value(VV[32])));
  2056.     base[4]= base[0];
  2057.     base[5]= base[1];
  2058.     base[6]= base[2];
  2059.     base[7]= base[3];
  2060.     base[0]= simple_symlispcall_no_event(VV[71],base+4,4);
  2061.     setq(VV[3],make_cons(base[0],symbol_value(VV[3])));
  2062.     setq(VV[34],make_cons(base[0],symbol_value(VV[34])));
  2063.     vs_top=(vs_base=base+0)+1;
  2064.     return;
  2065. T1586:;
  2066.     base[4]= base[0];
  2067.     base[5]= base[1];
  2068.     base[6]= base[2];
  2069.     base[7]= base[3];
  2070.     vs_top=(vs_base=base+4)+4;
  2071.     L12();
  2072.     return;
  2073. }
  2074. /*    function definition for C1DM-BAD-KEY    */
  2075.  
  2076. static L14()
  2077. {    register object *base=vs_base;
  2078.     register object *sup=base+VM14;
  2079.     vs_reserve(VM14);
  2080.     check_arg(1);
  2081.     vs_top=sup;
  2082. TTL:;
  2083.     base[1]= VV[44];
  2084.     base[2]= base[0];
  2085.     symlispcall_no_event(VV[68],base+1,2);
  2086.     return;
  2087. }
  2088. /*    function definition for C2DM    */
  2089.  
  2090. static L15()
  2091. {    register object *base=vs_base;
  2092.     register object *sup=base+VM15;
  2093.     vs_reserve(VM15);
  2094.     check_arg(4);
  2095.     vs_top=sup;
  2096. TTL:;
  2097.     setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
  2098.     base[4]= symbol_value(VV[24]);
  2099.     if((symbol_value(VV[27]))!=Cnil){
  2100.     goto T1609;}
  2101.     if((symbol_value(VV[28]))==Cnil){
  2102.     goto T1608;}
  2103. T1609:;
  2104.     princ_str("\n    check_arg(2);",VV[26]);
  2105. T1608:;
  2106.     if((base[0])==Cnil){
  2107.     goto T1616;}
  2108.     base[5]= simple_symlispcall_no_event(VV[81],base+6,0);
  2109.     structure_set(base[0],VV[8],2,base[5]);
  2110.     goto T1614;
  2111. T1616:;
  2112.     (void)simple_symlispcall_no_event(VV[81],base+5,0);
  2113. T1614:;
  2114.     if((base[1])==Cnil){
  2115.     goto T1621;}
  2116.     base[5]= simple_symlispcall_no_event(VV[81],base+6,0);
  2117.     structure_set(base[1],VV[8],2,base[5]);
  2118.     goto T1619;
  2119. T1621:;
  2120.     (void)simple_symlispcall_no_event(VV[81],base+5,0);
  2121. T1619:;
  2122.     base[5]= base[2];
  2123.     vs_top=(vs_base=base+5)+1;
  2124.     L16();
  2125.     vs_top=sup;
  2126.     princ_str("\n    vs_top=sup;",VV[26]);
  2127.     if((base[0])==Cnil){
  2128.     goto T1628;}
  2129.     base[5]= base[0];
  2130.     (void)simple_symlispcall_no_event(VV[82],base+5,1);
  2131. T1628:;
  2132.     if((base[1])==Cnil){
  2133.     goto T1632;}
  2134.     base[5]= base[1];
  2135.     (void)simple_symlispcall_no_event(VV[82],base+5,1);
  2136. T1632:;
  2137.     princ_str("\n    {object V",VV[26]);
  2138.     base[5]= base[4];
  2139.     (void)simple_symlispcall_no_event(VV[80],base+5,1);
  2140.     princ_str("=base[0]->c.c_cdr;",VV[26]);
  2141.     base[5]= base[2];
  2142.     base[6]= base[4];
  2143.     vs_top=(vs_base=base+5)+2;
  2144.     L18();
  2145.     vs_top=sup;
  2146.     princ_char(125,VV[26]);
  2147.     base[5]= base[3];
  2148.     symlispcall_no_event(VV[86],base+5,1);
  2149.     return;
  2150. }
  2151. /*    function definition for C2DM-RESERVE-VL    */
  2152.  
  2153. static L16()
  2154. {    register object *base=vs_base;
  2155.     register object *sup=base+VM16;
  2156.     vs_reserve(VM16);
  2157.     check_arg(1);
  2158.     vs_top=sup;
  2159. TTL:;
  2160.     {object V77;
  2161.     object V78;
  2162.     V77= car(base[0]);
  2163.     V78= car((V77));
  2164. T1651:;
  2165.     if(!(endp((V77)))){
  2166.     goto T1652;}
  2167.     goto T1647;
  2168. T1652:;
  2169.     base[1]= (V78);
  2170.     vs_top=(vs_base=base+1)+1;
  2171.     L17();
  2172.     vs_top=sup;
  2173.     V77= cdr((V77));
  2174.     V78= car((V77));
  2175.     goto T1651;}
  2176. T1647:;
  2177.     {object V79;
  2178.     object V80;
  2179.     V79= cadr(base[0]);
  2180.     V80= car((V79));
  2181. T1667:;
  2182.     if(!(endp((V79)))){
  2183.     goto T1668;}
  2184.     goto T1663;
  2185. T1668:;
  2186.     base[1]= car((V80));
  2187.     vs_top=(vs_base=base+1)+1;
  2188.     L17();
  2189.     vs_top=sup;
  2190.     if((caddr((V80)))==Cnil){
  2191.     goto T1674;}
  2192.     base[1]= caddr((V80));
  2193.     vs_top=(vs_base=base+1)+1;
  2194.     L17();
  2195.     vs_top=sup;
  2196. T1674:;
  2197.     V79= cdr((V79));
  2198.     V80= car((V79));
  2199.     goto T1667;}
  2200. T1663:;
  2201.     if((caddr(base[0]))==Cnil){
  2202.     goto T1683;}
  2203.     base[1]= caddr(base[0]);
  2204.     vs_top=(vs_base=base+1)+1;
  2205.     L17();
  2206.     vs_top=sup;
  2207. T1683:;
  2208.     {object V81;
  2209.     object V82;
  2210.     V81= car(cddddr(base[0]));
  2211.     V82= car((V81));
  2212. T1691:;
  2213.     if(!(endp((V81)))){
  2214.     goto T1692;}
  2215.     goto T1687;
  2216. T1692:;
  2217.     base[1]= cadr((V82));
  2218.     vs_top=(vs_base=base+1)+1;
  2219.     L17();
  2220.     vs_top=sup;
  2221.     if((cadddr((V82)))==Cnil){
  2222.     goto T1698;}
  2223.     base[1]= cadddr((V82));
  2224.     vs_top=(vs_base=base+1)+1;
  2225.     L17();
  2226.     vs_top=sup;
  2227. T1698:;
  2228.     V81= cdr((V81));
  2229.     V82= car((V81));
  2230.     goto T1691;}
  2231. T1687:;
  2232.     {object V83;
  2233.     object V84;
  2234.     V83= caddr(cddddr(base[0]));
  2235.     V84= car((V83));
  2236. T1710:;
  2237.     if(!(endp((V83)))){
  2238.     goto T1711;}
  2239.     base[1]= Cnil;
  2240.     vs_top=(vs_base=base+1)+1;
  2241.     return;
  2242. T1711:;
  2243.     base[1]= car((V84));
  2244.     vs_top=(vs_base=base+1)+1;
  2245.     L17();
  2246.     vs_top=sup;
  2247.     V83= cdr((V83));
  2248.     V84= car((V83));
  2249.     goto T1710;}
  2250. }
  2251. /*    function definition for C2DM-RESERVE-V    */
  2252.  
  2253. static L17()
  2254. {    register object *base=vs_base;
  2255.     register object *sup=base+VM17;
  2256.     vs_reserve(VM17);
  2257.     check_arg(1);
  2258.     vs_top=sup;
  2259. TTL:;
  2260.     if(!(type_of(base[0])==t_cons)){
  2261.     goto T1723;}
  2262.     base[1]= base[0];
  2263.     vs_top=(vs_base=base+1)+1;
  2264.     L16();
  2265.     return;
  2266. T1723:;
  2267.     base[1]= simple_symlispcall_no_event(VV[81],base+2,0);
  2268.     structure_set(base[0],VV[8],2,base[1]);
  2269.     vs_top=(vs_base=base+1)+1;
  2270.     return;
  2271. }
  2272. /*    function definition for C2DM-BIND-VL    */
  2273.  
  2274. static L18()
  2275. {    register object *base=vs_base;
  2276.     register object *sup=base+VM18;
  2277.     vs_reserve(VM18);
  2278.     bds_check;
  2279.     check_arg(2);
  2280.     vs_top=sup;
  2281. TTL:;
  2282.     {object V85;
  2283.     object V86;
  2284.     object V87;
  2285.     object V88;
  2286.     object V89;
  2287.     object V90;
  2288.     object V91;
  2289.     V85= car(base[0]);
  2290.     V86= cadr(base[0]);
  2291.     V87= caddr(base[0]);
  2292.     V88= cadddr(base[0]);
  2293.     V89= car(cddddr(base[0]));
  2294.     V90= cadr(cddddr(base[0]));
  2295.     V91= caddr(cddddr(base[0]));
  2296.     {object V92;
  2297.     V92= (V85);
  2298. T1737:;
  2299.     if(!(endp((V92)))){
  2300.     goto T1738;}
  2301.     goto T1734;
  2302. T1738:;
  2303.     if((symbol_value(VV[27]))!=Cnil){
  2304.     goto T1743;}
  2305.     if((symbol_value(VV[28]))==Cnil){
  2306.     goto T1742;}
  2307. T1743:;
  2308.     princ_str("\n    if(endp(V",VV[26]);
  2309.     base[2]= base[1];
  2310.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2311.     princ_str("))invalid_macro_call();",VV[26]);
  2312. T1742:;
  2313.     base[2]= car((V92));
  2314.     base[3]= list(2,VV[45],base[1]);
  2315.     vs_top=(vs_base=base+2)+2;
  2316.     L19();
  2317.     vs_top=sup;
  2318.     if((cdr((V92)))!=Cnil){
  2319.     goto T1755;}
  2320.     if(((V86))!=Cnil){
  2321.     goto T1755;}
  2322.     if(((V87))!=Cnil){
  2323.     goto T1755;}
  2324.     if(((V88))!=Cnil){
  2325.     goto T1755;}
  2326.     if((symbol_value(VV[27]))!=Cnil){
  2327.     goto T1755;}
  2328.     if((symbol_value(VV[28]))==Cnil){
  2329.     goto T1754;}
  2330. T1755:;
  2331.     princ_str("\n    V",VV[26]);
  2332.     base[2]= base[1];
  2333.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2334.     princ_str("=V",VV[26]);
  2335.     base[2]= base[1];
  2336.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2337.     princ_str("->c.c_cdr;",VV[26]);
  2338. T1754:;
  2339.     V92= cdr((V92));
  2340.     goto T1737;}
  2341. T1734:;
  2342.     {object V93;
  2343.     V93= (V86);
  2344. T1780:;
  2345.     if(!(endp((V93)))){
  2346.     goto T1781;}
  2347.     goto T1777;
  2348. T1781:;
  2349.     {object V94;
  2350.     V94= car((V93));
  2351.     princ_str("\n    if(endp(V",VV[26]);
  2352.     base[2]= base[1];
  2353.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2354.     princ_str(")){",VV[26]);
  2355.     bds_bind(VV[22],symbol_value(VV[22]));
  2356.     bds_bind(VV[20],symbol_value(VV[20]));
  2357.     bds_bind(VV[23],symbol_value(VV[23]));
  2358.     base[5]= car((V94));
  2359.     base[6]= cadr((V94));
  2360.     vs_top=(vs_base=base+5)+2;
  2361.     L20();
  2362.     vs_top=sup;
  2363.     if((caddr((V94)))==Cnil){
  2364.     bds_unwind1;
  2365.     bds_unwind1;
  2366.     bds_unwind1;
  2367.     goto T1792;}
  2368.     base[5]= caddr((V94));
  2369.     base[6]= Cnil;
  2370.     vs_top=(vs_base=base+5)+2;
  2371.     L19();
  2372.     vs_top=sup;
  2373.     bds_unwind1;
  2374.     bds_unwind1;
  2375.     bds_unwind1;
  2376. T1792:;
  2377.     princ_str("\n    } else {",VV[26]);
  2378.     base[2]= car((V94));
  2379.     base[3]= list(2,VV[45],base[1]);
  2380.     vs_top=(vs_base=base+2)+2;
  2381.     L19();
  2382.     vs_top=sup;
  2383.     if((caddr((V94)))==Cnil){
  2384.     goto T1785;}
  2385.     base[2]= caddr((V94));
  2386.     base[3]= Ct;
  2387.     vs_top=(vs_base=base+2)+2;
  2388.     L19();
  2389.     vs_top=sup;}
  2390. T1785:;
  2391.     if((cdr((V93)))!=Cnil){
  2392.     goto T1810;}
  2393.     if(((V87))!=Cnil){
  2394.     goto T1810;}
  2395.     if(((V88))!=Cnil){
  2396.     goto T1810;}
  2397.     if((symbol_value(VV[27]))!=Cnil){
  2398.     goto T1810;}
  2399.     if((symbol_value(VV[28]))==Cnil){
  2400.     goto T1809;}
  2401. T1810:;
  2402.     princ_str("\n    V",VV[26]);
  2403.     base[2]= base[1];
  2404.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2405.     princ_str("=V",VV[26]);
  2406.     base[2]= base[1];
  2407.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2408.     princ_str("->c.c_cdr;",VV[26]);
  2409. T1809:;
  2410.     princ_char(125,VV[26]);
  2411.     V93= cdr((V93));
  2412.     goto T1780;}
  2413. T1777:;
  2414.     if(((V87))==Cnil){
  2415.     goto T1832;}
  2416.     base[2]= (V87);
  2417.     base[3]= list(2,VV[46],base[1]);
  2418.     vs_top=(vs_base=base+2)+2;
  2419.     L19();
  2420.     vs_top=sup;
  2421. T1832:;
  2422.     {object V95;
  2423.     object V96;
  2424.     V95= (V89);
  2425.     V96= car((V95));
  2426. T1841:;
  2427.     if(!(endp((V95)))){
  2428.     goto T1842;}
  2429.     goto T1837;
  2430. T1842:;
  2431.     setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
  2432.     base[2]= symbol_value(VV[24]);
  2433.     princ_str("\n    {object V",VV[26]);
  2434.     base[3]= base[2];
  2435.     (void)simple_symlispcall_no_event(VV[80],base+3,1);
  2436.     princ_str("=getf(V",VV[26]);
  2437.     base[3]= base[1];
  2438.     (void)simple_symlispcall_no_event(VV[80],base+3,1);
  2439.     princ_str(",VV[",VV[26]);
  2440.     base[3]=symbol_function(VV[80]);
  2441.     base[5]= car((V96));
  2442.     base[4]= simple_symlispcall_no_event(VV[87],base+5,1);
  2443.     (void)simple_lispcall_no_event(base+3,1);
  2444.     princ_str("],OBJNULL);",VV[26]);
  2445.     princ_str("\n    if(V",VV[26]);
  2446.     base[3]= base[2];
  2447.     (void)simple_symlispcall_no_event(VV[80],base+3,1);
  2448.     princ_str("==OBJNULL){",VV[26]);
  2449.     bds_bind(VV[22],symbol_value(VV[22]));
  2450.     bds_bind(VV[20],symbol_value(VV[20]));
  2451.     bds_bind(VV[23],symbol_value(VV[23]));
  2452.     base[6]= cadr((V96));
  2453.     base[7]= caddr((V96));
  2454.     vs_top=(vs_base=base+6)+2;
  2455.     L20();
  2456.     vs_top=sup;
  2457.     if((cadddr((V96)))==Cnil){
  2458.     goto T1870;}
  2459.     base[6]= cadddr((V96));
  2460.     base[7]= Cnil;
  2461.     vs_top=(vs_base=base+6)+2;
  2462.     L19();
  2463.     vs_top=sup;
  2464. T1870:;
  2465.     princ_str("\n    } else {",VV[26]);
  2466.     bds_unwind1;
  2467.     bds_unwind1;
  2468.     bds_unwind1;
  2469.     base[3]= cadr((V96));
  2470.     base[4]= list(2,VV[46],base[2]);
  2471.     vs_top=(vs_base=base+3)+2;
  2472.     L19();
  2473.     vs_top=sup;
  2474.     if((cadddr((V96)))==Cnil){
  2475.     goto T1879;}
  2476.     base[3]= cadddr((V96));
  2477.     base[4]= Ct;
  2478.     vs_top=(vs_base=base+3)+2;
  2479.     L19();
  2480.     vs_top=sup;
  2481. T1879:;
  2482.     princ_str("}}",VV[26]);
  2483.     V95= cdr((V95));
  2484.     V96= car((V95));
  2485.     goto T1841;}
  2486. T1837:;
  2487.     if((symbol_value(VV[27]))!=Cnil){
  2488.     goto T1892;}
  2489.     if((symbol_value(VV[28]))==Cnil){
  2490.     goto T1890;}
  2491. T1892:;
  2492.     if(((V87))!=Cnil){
  2493.     goto T1890;}
  2494.     if(((V88))!=Cnil){
  2495.     goto T1890;}
  2496.     princ_str("\n    if(!endp(V",VV[26]);
  2497.     base[2]= base[1];
  2498.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2499.     princ_str("))invalid_macro_call();",VV[26]);
  2500. T1890:;
  2501.     if((symbol_value(VV[27]))!=Cnil){
  2502.     goto T1905;}
  2503.     if((symbol_value(VV[28]))==Cnil){
  2504.     goto T1903;}
  2505. T1905:;
  2506.     if(((V88))==Cnil){
  2507.     goto T1903;}
  2508.     if(((V90))!=Cnil){
  2509.     goto T1903;}
  2510.     princ_str("\n    check_other_key(V",VV[26]);
  2511.     base[2]= base[1];
  2512.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2513.     princ_char(44,VV[26]);
  2514.     base[2]= make_fixnum(length((V89)));
  2515.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2516.     {object V97;
  2517.     object V98;
  2518.     V97= (V89);
  2519.     V98= car((V97));
  2520. T1923:;
  2521.     if(!(endp((V97)))){
  2522.     goto T1924;}
  2523.     goto T1919;
  2524. T1924:;
  2525.     princ_str(",VV[",VV[26]);
  2526.     base[2]=symbol_function(VV[80]);
  2527.     base[4]= car((V98));
  2528.     base[3]= simple_symlispcall_no_event(VV[87],base+4,1);
  2529.     (void)simple_lispcall_no_event(base+2,1);
  2530.     princ_char(93,VV[26]);
  2531.     V97= cdr((V97));
  2532.     V98= car((V97));
  2533.     goto T1923;}
  2534. T1919:;
  2535.     princ_str(");",VV[26]);
  2536. T1903:;
  2537.     {object V99;
  2538.     object V100;
  2539.     V99= (V91);
  2540.     V100= car((V99));
  2541. T1943:;
  2542.     if(!(endp((V99)))){
  2543.     goto T1944;}
  2544.     base[2]= Cnil;
  2545.     vs_top=(vs_base=base+2)+1;
  2546.     return;
  2547. T1944:;
  2548.     base[2]= car((V100));
  2549.     base[3]= cadr((V100));
  2550.     vs_top=(vs_base=base+2)+2;
  2551.     L20();
  2552.     vs_top=sup;
  2553.     V99= cdr((V99));
  2554.     V100= car((V99));
  2555.     goto T1943;}}
  2556. }
  2557. /*    function definition for C2DM-BIND-LOC    */
  2558.  
  2559. static L19()
  2560. {    register object *base=vs_base;
  2561.     register object *sup=base+VM19;
  2562.     vs_reserve(VM19);
  2563.     check_arg(2);
  2564.     vs_top=sup;
  2565. TTL:;
  2566.     if(!(type_of(base[0])==t_cons)){
  2567.     goto T1957;}
  2568.     setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
  2569.     base[2]= symbol_value(VV[24]);
  2570.     princ_str("\n    {object V",VV[26]);
  2571.     base[3]= base[2];
  2572.     (void)simple_symlispcall_no_event(VV[80],base+3,1);
  2573.     princ_str("= ",VV[26]);
  2574.     base[3]= base[1];
  2575.     (void)simple_symlispcall_no_event(VV[80],base+3,1);
  2576.     princ_char(59,VV[26]);
  2577.     base[3]= base[0];
  2578.     base[4]= base[2];
  2579.     vs_top=(vs_base=base+3)+2;
  2580.     L18();
  2581.     vs_top=sup;
  2582.     princ_char(125,VV[26]);
  2583.     base[3]= Cnil;
  2584.     vs_top=(vs_base=base+3)+1;
  2585.     return;
  2586. T1957:;
  2587.     base[2]= base[0];
  2588.     base[3]= base[1];
  2589.     symlispcall_no_event(VV[84],base+2,2);
  2590.     return;
  2591. }
  2592. /*    function definition for C2DM-BIND-INIT    */
  2593.  
  2594. static L20()
  2595. {    register object *base=vs_base;
  2596.     register object *sup=base+VM20;
  2597.     vs_reserve(VM20);
  2598.     bds_check;
  2599.     check_arg(2);
  2600.     vs_top=sup;
  2601. TTL:;
  2602.     if(!(type_of(base[0])==t_cons)){
  2603.     goto T1976;}
  2604.     bds_bind(VV[21],symbol_value(VV[21]));
  2605.     bds_bind(VV[47],VV[37]);
  2606.     setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
  2607.     base[4]= symbol_value(VV[24]);
  2608.     base[7]= make_cons(base[1],Cnil);
  2609.     base[8]= VV[48];
  2610.     base[6]= simple_symlispcall_no_event(VV[91],base+7,2);
  2611.     base[5]= car(base[6]);
  2612.     princ_str("\n    {object V",VV[26]);
  2613.     base[6]= base[4];
  2614.     (void)simple_symlispcall_no_event(VV[80],base+6,1);
  2615.     princ_str("= ",VV[26]);
  2616.     base[6]= base[5];
  2617.     (void)simple_symlispcall_no_event(VV[80],base+6,1);
  2618.     princ_char(59,VV[26]);
  2619.     base[6]= base[0];
  2620.     base[7]= base[4];
  2621.     vs_top=(vs_base=base+6)+2;
  2622.     L18();
  2623.     vs_top=sup;
  2624.     princ_char(125,VV[26]);
  2625.     symlispcall_no_event(VV[92],base+6,0);
  2626.     bds_unwind1;
  2627.     bds_unwind1;
  2628.     return;
  2629. T1976:;
  2630.     base[2]= base[0];
  2631.     base[3]= base[1];
  2632.     symlispcall_no_event(VV[85],base+2,2);
  2633.     return;
  2634. }
  2635. /*    local function DO-DECL    */
  2636.  
  2637. static L9(base0)
  2638. register object *base0;
  2639. {    register object *base=vs_base;
  2640.     register object *sup=base+VM21;
  2641.     vs_reserve(VM21);
  2642.     check_arg(1);
  2643.     vs_top=sup;
  2644. TTL:;
  2645.     {object V101;
  2646.     base[1]= base[0];
  2647.     V101= simple_symlispcall_no_event(VV[93],base+1,1);
  2648.     if(((V101))==Cnil){
  2649.     goto T2002;}
  2650.     setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
  2651.     base[1]= symbol_value(VV[24]);
  2652.     structure_set(base[0],VV[8],1,(V101));
  2653.     structure_set(base[0],VV[8],4,base[1]);
  2654.     princ_str("\n    ",VV[26]);
  2655.     if((base0[7])!=Cnil){
  2656.     goto T2009;}
  2657.     princ_char(123,VV[26]);
  2658.     base0[7]= Ct;
  2659. T2009:;
  2660.     base[2]=symbol_function(VV[80]);
  2661.     base[4]= (V101);
  2662.     base[3]= simple_symlispcall_no_event(VV[94],base+4,1);
  2663.     (void)simple_lispcall_no_event(base+2,1);
  2664.     princ_char(86,VV[26]);
  2665.     base[2]= base[1];
  2666.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2667.     princ_char(59,VV[26]);
  2668.     base[2]= Cnil;
  2669.     vs_top=(vs_base=base+2)+1;
  2670.     return;
  2671. T2002:;
  2672.     base[1]= Cnil;
  2673.     vs_top=(vs_base=base+1)+1;
  2674.     return;}
  2675. }
  2676. /*    local function DO-DECL    */
  2677.  
  2678. static L7(base0)
  2679. register object *base0;
  2680. {    register object *base=vs_base;
  2681.     register object *sup=base+VM22;
  2682.     vs_reserve(VM22);
  2683.     check_arg(1);
  2684.     vs_top=sup;
  2685. TTL:;
  2686.     {object V102;
  2687.     base[1]= base[0];
  2688.     V102= simple_symlispcall_no_event(VV[93],base+1,1);
  2689.     if(((V102))==Cnil){
  2690.     goto T2025;}
  2691.     setq(VV[24],number_plus(symbol_value(VV[24]),VV[25]));
  2692.     base[1]= symbol_value(VV[24]);
  2693.     structure_set(base[0],VV[8],1,(V102));
  2694.     structure_set(base[0],VV[8],4,base[1]);
  2695.     princ_str("\n    ",VV[26]);
  2696.     if((base0[7])!=Cnil){
  2697.     goto T2032;}
  2698.     princ_char(123,VV[26]);
  2699.     base0[7]= Ct;
  2700. T2032:;
  2701.     base[2]=symbol_function(VV[80]);
  2702.     base[4]= (V102);
  2703.     base[3]= simple_symlispcall_no_event(VV[94],base+4,1);
  2704.     (void)simple_lispcall_no_event(base+2,1);
  2705.     princ_char(86,VV[26]);
  2706.     base[2]= base[1];
  2707.     (void)simple_symlispcall_no_event(VV[80],base+2,1);
  2708.     princ_char(59,VV[26]);
  2709.     base[2]= Cnil;
  2710.     vs_top=(vs_base=base+2)+1;
  2711.     return;
  2712. T2025:;
  2713.     base[1]= Cnil;
  2714.     vs_top=(vs_base=base+1)+1;
  2715.     return;}
  2716. }
  2717.